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CAPÍTULO 


EVITANDO FALHAS 


Todas as simulações deste livro foram escritas e testadas em um microcomputador MSX 
nacional e as listagens impressas a partir deste micro. 

Todos os programas foram escritos em MSX-BASIC elementar, de modo a evitar dificul- 
dades de compreensão por parte dos leitores. 

Eventuais erros que possam interromper as simulações terão sua origem em possíveis erros 
de digitação cometidos pelos usuários. 

Caso ocorra um erro de FALTA DE MEMÓRIA aconselho que desligue c ligue 
iiuvamente seu MSX para, então, executar o programa. Esse tipo de erro tem sua origem na 
execução anterior de outro programa que possa ter alterado os vetores do seu micro. 

Aconselho o máximo dc atenção quando digitar os programas contidos neste livro. 

A cada quinze minutos de digitação grave o programa. Faça uma cópia do programa em 
disco ou K-7 ao finalizar a digitação. 




ALGUMAS PALAVRAS SOBRE SIMULAÇÕES 


Seja bem-vindo ao mundo das simulações! 

Neste mundo quase tudo é possível , afinal de contas as simulações lhe dão a oportunidade 
dc transportar o mundo “real" para dentro do seu MSX! 

Que tal scr o Presidente da República? Gostaria de pilotar um avião e ter todos os instru 
mentos “realrnente” funcionando à sua frente? Talvez vocé prefira enfrentar o seu computador 
em alguns jogos que requerem um bom tanto dc inteligência e destreza? 

Pois bem, independente da sua resposta, este livro colocara ao seu alcance todas as si- 
tuações acima e mais: pouco a pouco você entenderá como funcionam as simulações e de que' 
maneira são projetadas. Fm outras palavras, se você conhece um pouco de MSX-BASIC, será capaz 
de projetar e programar suas próprias simulações!! 

0 estudo das listagens deste livro e do modo como são estruturados os programas lhe 
dará os elementos necessários ao seu desenvolvimento no mundo das simulações. 

As simulações por computador são utilizadas em três situações básicas: quando a realidade 
é muito cara, quando a realidade é muito pengosa ou quando a realidade é muito complexa. 

As primeiras horas de vôo de pilotos de grandes aviões são passadas em simuladores de 
vòo controlados por computadores; os próprios astronautas da NASA passam boa parte de seus 
treinamentos cm simuladores. 

Existem sistemas que simulam a reação de seres humanos a certas substâncias químicas, 
como se cias estivessem dentro dc seus organismos 

Recentemente, no Brasil, algumas auto-escolas passaram a adotar simuladores de veículos 
para seus alunos novatos. Sem dúvida essa medida implica em grande economia por parte da auto- 
escola, não apenas em termos materiais mas também em termos temporais (podem atender a um 
número maior de alunos com um bom nível de ensino). 
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Algumas palavras sobre simulações 
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Ainda no Brasil, uma grande cadeia de supermercados está estudando a viabilidade de 
utilizar computadores no treinamento de seus caixas: os equipamentos simulariam as situações 
do dia-a-dia de um caixa, inclusive os horários de maior movimenta. 

O treinamento dos operadores de grandes usinas nucleares também é leito com a 
utilização de simulações controladas por computadores. 

TIPOS DE SIMULAÇÕES 

Simulações cm tempo real sao aqueles programas que fazem com que os fatos ocorram 
no mesmo tempo que gastam no mundo real; um segundo de simulação deve corresponder a um 
segundo no nosso mundo real. 

0 programa SIMULADOR DE VÕO pode ser transformado em uma simulação em tempo 
real (veja os comentários na listagem). 

Já n programa BOLSA DE VALORES não ocorre em tempo real, pois a bolsa de valores 
“espera” até que você tome suas decisões. 

0 programa BOLSA DE VALORES é uma simulação discreta, pois ele espera que vocé 
digite uma tecla para prosseguir operando. 


A NOSSA JORNADA 

Começaremos simulando o final de uma partida de xadrez; você verá corno é impossível 
vencer o seu micro ! 

Em seguida passaremos ao mundo da política, onde você é o Presidente da República do 
Brasil! Em pouco tempo descobrirá que a presidência não é um cargo dos mais agradáveis... 

Prosseguindo, vamos simular um pouco de inteligência artificial voltada para jogos de 
tabuleiro, onde você conhecerá poderosos programas de jogos (o seu MSX simulará o seu 
adversário). Quem vencerá? Você ou o seu MSX? 

Entraremos, então, no mundo da bolS3 de valores, onde você é um grande acionista com 
grandes objetivos financeiros a atingir. 

E, para finalizar, vocé entrará em um avião, ocupara o lugar do piloto c levantará vôo 
(apôs algumas tentativas, é claro!). 

Descobrirá que não é simples a tarefa de controlar cinco ou mais fatores que se modificam 
a cada segundo. 


Vocé tem um campo maravilhoso á sua frente, todo um universo a ser descoberto. 
Vá láü 



CAPÍTULO 



XADREZ 


Existem programas dc computadores que simulam muito hem jogadores de xadrez e seus 
adversários. 

Mas qual foi a primeira máquina a simular tal jogo? Quem foi o seu inventor? 

A resposta é a seguinte: em 1890, na Espanha, um cientista chamado Torres Quevedo 
criou uma pequena máquina que era capaz de jogar uma finai dc xadrez entre um rei e uma torre 
c um rei. A máquina jogava com a torre e o rei e era sempre capa/ de dai xeque-mate (vencer). 

A máquina podia fazer seis movimentos diferentes, que são indicados nesta simulação. 

Lembre-se de que a torre desloca-se horizontal ou verticalmente, na linha em que está 
posicionada, qualquer número de casas (para maiores detalhes consulte alguém que jogue xadrez) 
e o rei anda de casa em casa cm qualquer direção. 

Vocc tem apenas um rei (símbolo "r” nas telas abaixo) e o seu MSX tem um rei (“R") 
e uma torre (“T"). 

As posições iniciais são sorteadas pelo micro: 


VuLe usou o movimento: O 


ABCEDFGH 


0 

7 

6 

5 

4 

3 

2 

1 



0 

7 

6 

5 

4 

3 

2 

1 


ABCDCFGM 


Digite sua jogada? C2 




Xndrei 
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Movimentei o meu rei (r) para a coluna C linha 2 (jogada C2). 0 micro deslocou a 
torre (T) para G6: 


Vüch ubuu u iiiuvi mento: 1 


A6CEDFGH 


8 R 

7 7 

6 T. 6 

5 ...R 5 

4 4 

3 3 

2 . -r 2 

1 1 


ABCDFFHH 

Diqite sua jogada? DS 


Joguei em D3,ele colocou a Torre (T) em G5: 


V/nr p usou □ muv i isento: 1 
ABCEÜhüH 


0 B 

7 7 

6 6 

5 . . -R- -T- 5 

4 4 

3 r 3 

2 2 

1 1 


ABCDEFGH 

Digite sua jogada? C4 


(R): 


Por descuido coloquei o meu rdi em C4, infelizmente, ficando a mercê do rei adversário 
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Simulações no MSX 


Vnrp usou o mnvi irpntn: 1 


ABCEUI- GH 

B 

7 

6 

. . . R. . T. S 

■ . r 4 

3 

2 

1 

ABCOEF GH 

GANHEI ! ! ? 


U 

7 

6 

n 

4 

3 

2 

1 


Note que vucê verá, na leia do seu MSX, os caracteres com desenhos diferentes (verá dois 
reis e uma torre), pois eles sao redesenhados na simulação. 

A lislagem do XADREZ eslá no próximo capitulo. 




LISTAGEM DO XADREZ 


Digile “F" para encerrar a simulação. 

Caso você queira, pode modificar o formato das suas peças e das do computador; o 
desenho da sua peça é definido nas linhas de 2610 a 2680 e o desenho das peças do MSX é 
definido nas linhas de 2250 a 2320 c dc 2370 a 2440 (rei c torre). 

Note que aos uns correspondem os pontos cheios nas figuras das peças e aos zeros cor- 
respondem os espaços vazios. 

Após executar esta simulação os formatos das letras “r”, “R” e 4 T* estarão alterados; 
para fazer com que voltem ao normal digite: 

SCREEN0+-* 

Esta simulaçáu só lê os comandos em letras maiúsculas; antes de iniciá-la coloque o 
teclado na modalidade de maiúsculas! 

1000 31 ******************* 

1010 ' * XADREZ * 

1020 ' ******************* 

1030 * 

1040 ’ 

1050 CLEAR&H1000: GGSUB 2050: REM INICIALI ZACAO 
1060 GOTO 1680 
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Simulações no MSX 


1070 7 ***** *************** 

1000 7 * LIMITE SUPERIOR * 

1090 7 ******************* 

1100 IF INT < T/ 10) = INT<RB/10)+1 THEN RETURN 

1110 IF T-10 = RN OR T-21 = RB OR T-19 - RB OR T-9 = R 

B THEN GOSUB 1170: GOTO 1100 

1120 T (T) = 46: T - T-10: T <T) - ASC< M T M ): SI = ÍZ MOV 
I = 1 

1130 GOSUB 1740: GOTO 1100 
1140 7 ******************* 

1150 7 *MOVTO. HDRIZONTAL* 

1 160 7 ******************* 

1170 CT = T-INT (T/10)*10 

1180 DIR ■ IS XF CT>4 THEN LET DIR » -1 

1190 IF T+DIR = RN THEN LET DIR » -DIR 

1200 T (T) = 46: T = T+DIR 

1210 FOR A = 1 TO 6 

1220 W = T-INT (T/10) *10: IF M - 1 OR W -B OR T - RN TH 
EN LET A = 7: GOTO 1240 
1230 T = T+DIR 
1240 NEXT A 

1250 T < T) = ASCCT"): MOVI = 2 


1260 GOSUB 1740: RETURN 




Listagem do xadrez 
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1270 * ******************* 

1 280 ? «PREPARA POSICAO* 

1290 ' ******************* 

1300 GOSUB 1100 

1310 IF T-ll - RB ÜR T-9 - RB THEN GOSUB 1170: GOTO 13 
00 

1320 IF INT (RN/10) = INT<RB/10)+2 THEN RETURN 

1330 T (RN) = 46: RN = RN-10: MOVI - 3: T (RN) - ASC<"R"> 

1340 bUSUB 1740: GOTO 1300 
1350 F ****************** 

1360 * * POSICAO * 

1370 ? ****************** 

1380 SI = 0Í GOSUB 1100: IF SI THEN GOTO 1700 
1390 IF T-ll =* RB OR T-9 = RB THEN GOSUB 1170: GOTO 17 
00 

1400 IF ABG (RN-20-RB) <= 1 THEN RETURN 

1410 T (RN) = 46: RN = RN+1 

1420 IF RN— 20— RB > 0 THEN LET RN = RN-2 

1430 T (RN) = ASCCR-): MOVI - 4 
1440 GOSUB 1740: GOTO 1380 
1450 ' ********************** 

1460 ' «PREPARA MARCHA A RE’* 

1470 * ********************** 


JO Simulações no MSX 

1480 SI = 0: GOSUB 1100 : IF SI THEN GOTO 1700 
1490 IF T— 1 1 » RB OR T-9 = RB THEN GOSUB . 1 1 70S GOTO 17 
00 

1500 CRB = RB-INT<RB/10>*10 

1510 IF CRB - 1 OR CRB - B OR RB = RN— 20 THEN RETURN 
1520 T <RN) = 46: RN = RN+1 

1530 IF RN-INT CRN/ 1 0) *1 0-RB+ INT (RB/10) *10 > 0 THEN LET 
RN = RN— 2 

1540 T (RN) = ASCC M R N >: MOVI = 5 

1550 GOSUB 1740: GOTO 1480 
1560 * ************** 

1570 31 * MARCHA A RE* * 

15B0 * ************** 

1590 SI = 0: GOSUB 1100: IF SI THEN GOTO 1700 
1600 IF T-l 1 = RB OR T-9 =* RB THEN GOSUB 1170: GOTO 17 
00 

1610 T (T) = 46: T « T-10: T (T) = ASC<”T M ) 

1620 GOSUB 1740: T CRN) - 46: RN - RB+20 
1630 T (RN) = ASCCR"): MOVI = 6 
1640 GOSUB 1740: GOTO 1720 
1650 * ****************** 

1660 * * LOOP PRINCIPAL * 


1670 




****************** 
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1680 GOSUB 1750: REM PEGA SEU MOVIMENTO 

1690 GDSUB 1070:REM MOVIMENTO 1 

1700 GOSUB 1280: REM MOVIMENTO 3 

1710 GOSUB 1360: REM MOVIMENTO 4 

1720 GDSUB 1460:REM MOVIMENTO 5 

1730 GOSUB 1590: REM MOVIMENTO 6 

1740 5 

1750 9 ***************** 

1760 ' * LE SUA JOGADA * 

1770 9 ***************** 

1780 GDSUB 1940 

1790 PLAY* A": LOCATE 0,21: INPUT •‘Digito sua jogada** ;G 

% 

1800 IF G* = "f OR G % * M F I# THEN END 

1810 IF LEN(GS) O 2 OR LEFTS <GS, 1 ) < "A" OR LEFT$<G*,1) 
>*'H*' THEN GOTO 1790 

1820 X = VAL(MIDS<G* f 2, 1) ) : IF X< 1 OR X>8 THEN GOTO 17 
90 

1830 IF ABS ( X— INT < RB/ 10) ) > 1 THEN GOTO 1790 

1840 IF ABS(RB-INT<RB/10)*10-ASC<LEFT*(G*, 1) )*64) = 0 

AND ABS<X-INT (RB/10) ) - 0 THEN GOTO 1790 

1850 IF ABSCRB-INT(RB/10)*10-ASC<LEFT$<G* f 1) )+64> > 1 

THEN BOTO 1790 
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Simuíjçóes nu MSX 


1 860 T (RB) = 46: RB = X*10+ASC (LEFT* < G*, 1 > > -64 
1B70 T (RB) = AS C<V): GOSUB 1940: fIDV/I = 0 
1BB0 REh VERIFICA SE PODE COMER O REI 
1B90 FRB - INT (RB/ 10): CRB - RB-FRBM0 
1900 IF INT (T/10) = FRB UR T-INT (T/10) *10 - CRB THEN 
GOTO 2030 

1910 IF ABS (RN-RB) < 1 OR RN = RB+10 OR RN = RB-10 OR RN 
- RB+9 OR RN « RB -9 OR RN = RB+11 OR RN = RB-11 THEN 
GOTO 2030 
1920 RETURN 

1930 ' **#**#**#**#*11#*»** 

1940 * *1 MPRII1E TABULEIRO* 

1950 9 ******************* 

1960 CLS: PRINT "Voce usou o movi mento: "MOVI 

1970 LÜCATE 10, 5! PR INT ” ABCEDFGH" S PRINT 

1980 FOR A = 80 TO 10 STEP -10: PRINT TAB(7)A/10; 

1990 FOR B = 1 TO 8 
2000 PRINT CHRSCT<A*B> ) ; 

2010 NEXT B: PRINT A/10 

2020 NEXT A: PRINT: PRINT TAB ( 10 ) " ABCDEFGH" : RETURN 
2030 PRINT: PRINT "GANHEI ! ! ! " : PRINT: STOP 




Làíagem do xadrez 
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2040 * ***************** 

2050 ' * INICIALIZACAO * 

2060 ? ***************** 

2070 SCREEN 1: KEY OFF: GGSUB 2180 

20B0 DIM T (100) : FflR A=1 TO 100: LET T (A) = 46= NLXT A 

2090 F = INT (RND(-TlhE)*5)+l: C =* INT (RND ( -T 1 ME > *8) + 
1 

2100 NB = F*10+C: REM POSICAO REI BRANCO 

2110 FBIS « F+2+INT<RNDC-TIME>*6) : IF FBTS>8 THEN LET 

FB I S=8 

2120 RN - FBISM0+INT (RND (-T IME) *7) +1 : REM POSICAO DO 
REI PRETO 

2130 FBIS = F+2+INT(RND(-TIME>*6) : IF FBIS > 8 THEN LE 

T FBIS = 8 

2140 T = FBIS* 10+ INT (RND (—TIME) *B) + 1 2 REM POSICAO DA T 
ORRE PRETA 

2150 IF T - RN THEN GOTO 2130 

2160 T (T) = ASCCT"): T (RB) = ASC("r H ): T (RN) «= ASC ( "R 
") 

2170 MOVI = 0 

2180 51 ******************* 

2190 ' * REDEFINE LETRAS * 


2200 ’ ******************* 
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Simulações no MSX 


2210 RESTORE 2250: FOR W=0 TO 7 
2220 READ A* 

2230 VPOKE 656+U, VAL < "SrEr+A*) 

2240 NEXT W 

2250 DATA 01010100 

2260 DATA 01111100 

2270 DATA 01010100 

2280 DATA 01111100 

2290 DATA 01101100 

2300 DATA 01111100 

2310 DATA 00111000 

2320 DATA 00010000 

2330 RESTORE 2370: FOR W=0 TO 7 

2340 READ A* 

2350 VPOKE 672+W, VAL C n &B N +A$ ) 

2360 NEXT W 

2370 DATA 11111100 

2380 DATA 11111100 

2390 DATA 01111000 

2400 DATA 01111000 

2410 DATA 01111000 

2420 DATA 01111000 


2430 DATA 01111000 
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2440 

DATA 

00000000 


2450 

RESTQRE 2490: FOR W=0 TO 

7 

2460 

READ 

A« 


2470 

VPOKE SòB+WpVALCfcB^+A*) 


2480 

NEXT 

U 


2470 

DATA 

00000000 


2500 

DATA 

00000000 


2510 

DATA 

00000000 


2520 

DATA 

00110000 


2530 

DATA 

00110000 


2540 

DATA 

00000000 


2550 

DATA 

00000000 


2560 

DATA 

00000000 


2570 

RESTORE 2610: FOR U=0 TO 

7 

2580 

READ 

A* 


2590 

VPOKE 9 1 2-fW , VAL < " 8cB w +A$ ) 


2600 

NEXT 

W 


2610 

DATA 

01010101 


2620 

DATA 

01000001 


2630 

DATA 

01010101 


2640 

DATA 

01000001 


2650 

DATA 

01001001 


2660 

DATA 

01000001 




16 Si/nulações na MSX 


2670 DATA 01100011 
2680 DATA 01110111 
2690 RETURN 




O PRESIDENTE DA REPÚBLICA 


Passamos a simular, neste capítulo, nada mais, nada menos do que a economia de nosso 
país, a economia do Brasil. 

Isso sei é possível devido a existência de uma série de fórmulas matemáticas que 
representam, de forma muito simplificada, a economia de nossa nação. 

Puis bem, a partir deste momento você passa a ocupai a presidência da república, 
assumindo também todas as responsabilidades inerentes a esse cargo. 

Como Presidente você deve esforçar-se paia conter os gastos públicos, equilibrar a 
inflação, manter reduzido o número dc desempregados e, prmcipalmcnte, manter a economia 
com um bom ciescimeiito. 

Acabará descobrindo que a vida de um Presidente nem sempre é tao boa como alguns 

pensam... 

A simuiaçao inicia com um informe sobre o estado geral da nação, sendo então solicitadas 
suas decisões sohre os gastos do Governo, o valor do salário mínimo e a permissão ou não da 
entrada de imigrantes no Brasil: 
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Simulações no MSX 


Presidente: Oscar 
No poder ha' .25 anos. 

SI rUPCAO DO PAIS 

Populacao: 3000019 
Desempregados: 300000 9 V. 

Sal. mínimo:* lOO Inflacaa: 5 X 

Gastos no ultimo penudo: *M 11B 
Custo do desemprego: SM O 

Entradas por impostos! SM O 
Caixa atual : *M O 
Produto Nacional Bruto: SM 440 
Invest. publicas: *n 236 


Sr . Presidente Oscar! 

Informe os gastos do governo SM? 15 


Pr esi dente: Oscar 

No poder ha' .25 anos. 

S 1 TU AC AO DO PAIS 

Pupu 1 ac ao : 30008 1 9 
Desempregados: 300000 9 X 

Sal . mim mu: S lOO Inflacao: 5 X 

Gastos no ultimo periudcilSM 118 
Custo do desemprego! SM O 

Entradas por impostos: SM O 
Caixa atual : SM O 
Produto Nacional Bruto: SM 440 
Invest. públicos: SM 236 


Sr. Presidente Oscar! 
e os gastos com sal ar ias SM? lOO 



O presidente da república 
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Presidente: Oscar 
No poder ha’ .25 anus. 

SITUACAO DQ PAIS 

Pop ui ac du: 3000819 
Desempregadas: 300000 9 X 

Sal . nu m mo: S ÍOO Inflacao: 5 7. 

Gaslus no ultimn per iodo: SM 1 1 R 
Custo do desemprego: SM 0 

Entradas por impostos: SM 0 
Caixa atual : SM 0 
Produto Nacional Bruto: SN 440 
Invect. públicos: SM ZSb 


Sr -Pr es i dente Oscar: 

E' a favor dos imigrantes (S/N) ? 

0K... N 


Red li/ i os gastos do governo paia 15 milhões de cruzados, mantendo fixo o salário 

mínimo. 

Abaixu, podemos perceber os resultados dessas medidas: redução do número de 
desempregados, pequeno aumento da inflação e aumento dos investimentos realizados pelo 
povo em obras públicas (isso signif ica que o povo está confiante na atual administração). 

Vamos ao próximo período: 


Presidente : Oscar 
No poder ha’ .5 anos. 

SITUACAO DO PAIS 

PopuUcao: 3001638 
Despmprpfjadn*: 217642 7 X 

Sal . mínimo: * ÍOO Inflacao: 7 X 

Gastos no ultimo per iodo: SM 15 
Custo do desemprego: SM 21.7 

Entradas por impostos: SM 111.3 
Caixa atual : SM 74.5 
Produto Nacional BrutolSM 529.3 
Invest. públicos: SM 414.3 


Sr . Presi dente Oscar: 

Informe os gastos do governo SM? 30 
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Simulações no MSX 


Aumentei os gastos para 30 milhões, o que fez, como podemos ver abaixo, com que a 
mflaçao e o desemprego aumentassem, além de diminuir o meu prestígio junto a população (os 
investimentos públicos caíram muito!): 


Presidente: Oscar 
No poder ha' .75 anos. 

SITUACAO DO POIS 

População: 3002457 
Desempregados: 356775 11 X 

Sal . mi m to: * 100 Infiacao: 12 *4 

Gastas no ultima periodoltM 30 
Custa do desemprego: SN 35.6 

bntradas por impostos:*M 105. O 
Caixa atual:*M 114.7 
Produta Nacional Bruto: SM 708.0 
MUDANÇA NO NÍVEL DE VIDA 50 X 
Invest. públicos: SM 183.4 


Sr . Pr es i ilent e Osrar: 

Informe os gastos do governo 60 


Aumentei ainda mais os gastos (60 milhões) r veja o que ocorreu : 


Presidente: Oscar 
No poder ha' 1 anos. 

SITUACAO DO PAIS 

Pnpulacao: 3003276 
Desempregados: 199131 6 X 

Sal .mini mo : % ÍOO Infiacao: 6 X 

Gastas no ultima per iodo : *M 60 
Custa do desemprego: SM 19.9 

Entradas por impostos: SM 112.1 
Caixa atual : SM 146.9 
Produta Nacional Bruto: SM 523. B 
MUDANÇA NO NIVEL DE VIDA 16 X 
Invest. públicos: SM 779.1 


Sr .Presidente Oscar: 
e as gastos cam sal anos SM'* 200 
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Como a situação geral do país parecia ser favorável, aproveitei e aumentei o salário 
mínimo para Cz$ 200. 


Pensei que conquistaria maior simpatia junto ao povo. mas ocorreu um grande imprevisto: 


A 1 inhrf eLunumÍLd de bud ãdninistracâo 
Ipvnu n nnssn pdis a um inaceitável 
indico inflacionário. 

A falta do oficacia na sua admlnlstra- 
cao e' tal que foi solicitada a sua re- 
nuncia- . . 

0 vice-presidente passa a ocupar o seu 
cargo. 


TECLE ALGO. 


RELATOR 10 ÜE RENUNCIA! 

Oscar foi presidente por 1.25 anos. 

Durante o seu mandato a populacao 

cresceu 3276 pessoas. 

A taxa de deseiapreyu passuu a ser 17 

•A. 

A taxa de inflacao era de 10.5 X. 

0 balanço passou a ser 102.9 . 


A listagem e os comentários referentes a O PRESIDENTE DA REPÚBLICA estão no 
capítulo seguinte. 








LISTAGEM DE O PRESIDENTE DA REPUBLICA 


F.sta é uma simulaçãu que permite muitas alterações. 

Caso deseje alterar os valores iniciais das variáveis, suguo que dê uma olhada nas linhas 
de números 2180 a 2520, pois é lá que as variáveis recebem os valores iniciais. 

Para moditicar a impressão da tela e a entrada dos dados estude as linhas de números 
1 270 a 1610 e, depois, realize as alterações que tem em mente. 

Se desejar novas mensagens quando da finalização da simulação, altere os textos contidos 
nas linhas de 21 10 a 2320. 

Finalmcntc, convém que você procure entender o que ocorre no LOOP PRINCIPAL 
(linhas de 1 1 10 a 1230), pois é essa região do programa que “controla” toda a simulação. 

Existe urn grande número de comentários, nas linhas do programa, com o objetivo de 
facilitar a sua compreensão. 

1000 9 D PRESIDENTE 
1010 * 

1020 * D A 

1030 r 

1040 ’ REPUBLICA 
1050 ’ 

22 " ' 



Lisuigem ile u presidente du repãhlica 2.1 

1060 » 

1070 GOSUB 2350: REM 1N1CIALIZACA0 
1030 9 *************************** 

1090 * LOOP PRINCIPAL 

1100 5 ************************** 

1110 P = INT <P+(P*273/ML) ) 

1120 GOSUB 1270: REM IMPRESSÃO 

1130 GOSUB 1650: REM CÁLCULOS 

1140 * AQUI E* VERIFICADO O FIM DA SIMULACAO 

1150 GOSUB 1060: REM NIVEL DE VIDA 

1160 GOSUB 2590: REM ACABOLT? 

1170 GOSUB 1940: REM NIVEL DE INFLACAO 
11B0 GOSUB 2590: REM ACABQU7 
1190 GOSUB 2010: REM DESEMPREGO 
1200 GOSUB 2590: REM ACABOU? 

1210 GOSUB 1790! REM DÉFICIT 
1220 GOSUB 25V0: REM ACABOU' 7 
1230 GOTO 1110 

1240 ? ************************** 

1250 ' IMPRESSÃO 

1260 •' ************************** 

1270 CLS 

1280 PRINT "Presidente: " ; A* 
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1290 PRINT "No poder ha” " ; Y+Z /4; " anos. " 


1310 PRINT " SITUACAO DO PAIS » 

1320 PRINT:”" " 


1330 PRINT "Populacao: “;P 

1340 PRINT "Desempregados: "INT (U> " " 1 NT < 100*U/P) "7." 

1350 PRINT "Sal .mini mn: S" I NT ( W0> " Inf lacao: “INT(IP) " 

7." 

1360 PRINT : PRINT "Gastos no ultimo período: SM" INT (GE) 
1370 PRINT "Custo do desemprego: SM" INT ( 10*GU) / 10 
1380 PRINT : PRINT "Entradas por impostos: SM" 3NT (61*10) / 
10 

13V0 PK1NT "Caixa atual : SM" I NT <BD*10> / 10 
1400 PRINT "Produto Nacional Bruto! SM" INT <GDP*1 0) / 10 
1410 1F Y+Z/4 > .5 THEN PRINT "MUDANÇA NO NIVEL DE VID 
A " I NT < i 2* < (RGDP/AGDP > * 100) —100) /3) "7." 

1420 PRINT " I nvest - publicas: SM " INT ( I V*10> / 1 0 

1430 PRINT" 

1440 PRINT: PRINT "Sr . Presidente "AS":" 

1450 GOSUB 2610: INPUT "Informe os gastas do governo S 
M"5 6E 

1460 GOSUB 2610 

1470 INPUT "e os gastas com sal ar i os SM";WN 



1480 WN=WN+lE-03 
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1490 GOSUB 2610 

1500 PRINT "E* a favor dos imigrantes (S/N) ?" 

1510 X* = INKEYS 

1520 IF X%O u S m AND X*O u H" AND X*<> M s“ AND X*<>”n” TH 
EN GOTO 1510 

1530 PRINT TAB (20) "OK "X* 

1540 FOR H=1 TO 500: NEXT H 

1550 1F X*<>-3“ AND X*<>”s” THEN RETURN 

1560 GOSUB 2610 

1570 PRINT "Permitira' a entrada de quantos i mi - gr 
antes"; 

15B0 1NPUT M 

1590 IF M<0 THEN GOTO 15B0 
1600 P = P+M 
1610 RETURN 

1620 ' ************************** 

1630 ' CÁLCULOS 

1640 *******++******+*********+* 

1650 CN = CN+ (CN* IP/ 100) 

1660 U = P* (BE+IV) / (CN*10> ♦P* ( IP/ 1000) 

1670 GU = U*WN/ML: REM CUSTO DO DESEMPREGO 

1680 G 1 = ( ( (P-U) *WN*. 4) /ML) : REM RENDA DOS IMPOSTOS 
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1690 BD = BD+GI-GU-GE: REM DÉFICIT 
1700 AGDP «= AGDP*r<l + <IP/100) > 

1710 GDP = GE+IV+< (P-U)*WN/ML) 

1720 RGDP = GDP*440/AGDP 

1730 IP = < <GE+IV)/CN*. 1-MWN/WO) /100>*100 
1740 IV = <CN*67> / <IP*IP) 

17150 WG * WN 

1760 Z - Z+i: IF Z >4 THEN LET Z=l: LET Y= Y+l 
1770 RETURN 

1780 ’ ************************** 

1790 9 COMPROVA O DÉFICIT 

1800 ’ ************** ************ 

1810 IF BD > -1000 THEN RETURN 
1820 GAME = 1 
1B30 FLAG = 1 

1840 RETURN 

1850 * ************************** 

1860 - COMPROVA O NIVEL DE VIDA 
1870 * ************************** 

1080 IF Y< . 75 THEN RETURN 

1890 IF 1NT ( <2*( <RGDP/AGDP)*100)-100> /3> > -1 

ETURN 


THEN R 


1900 GAME 


1 
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1910 FLAG = 2 
1920 RETURN 

1930 / ************************** 

1940 ' COMPROVA A INFLACAO 
1950 * 

1960 IF IP< 15 THEN RETURN 
1970 GAME = 1 
1 9B0 FLAG = 3 
1990 RETURN 

2000 ’ ************************** 

2010 * COMPROVA O DESEMPREGO 
2020 ? **#*»#*******#***##**«#*#* 

2030 1F INT <U*100/P)<15 THEN RETURN 
2040 GAME = 1 
2050 FLAG = 4 
2060 RETURN 

2070 * ************************** 

2000 ’ FINALIZA A SIMULACAO 
2090 9 ************************** 

2100 CLS 

2110 PR INT "Presi dente” A* " 

2120 PRINT: PRINT" A linha economica de sua adrai ni stracao" 
2130 PRINT "levou o ncsso pais a um inaceitável" 
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2140 IF FLAG = 1 THEN PRINT "déficit de balança." 

2150 IF FLAG = 2 THEN PRINT "nivel de vida." 

2160 IF FLA6 = 3 THEN PRINT "Índice inflacionária." 

2170 IF FLAG = 4 THEN PRINT "numero de desempregados " 

2180 PRINT: PRINT " A falta de eficacia na sua adminis 
tra-" 

2190 PRINT "cao e” tal que foi solicitada a sua re- H 
2200 PRINT "nuncia. . PRINT 
2210 FOR H=1 TO 1000: NEXT H 

2220 PRINT " O vice-presidente passa a ocupar o seu" 

2230 PRINT "cargo.": PRINT 

2240 LOCATE 15,23: PRINT "TECLE ALGO." 

2250 JF INKEYS - "" THEN 2250 

2260 CLS: PRINT " RELATORIO DE RENUNCIA:": PRINT 
2270 PRINT " "Aí " foi presidente par “ Y+ < Z*. 25) ” anos 
.": PRINT 

2280 PRINT " Durante o seu mandato a populacao": P 
RINT 

2290 PRINT "cresceu "P-3*ML” pessoas.": PRINT 

2300 PRINT " A taxa de desemprego passou a ser PRI 

NT INT<U*1000/P/10> "*/. PRINT 

2310 PRINT " A taxa de inflacao era de" INT ( 10*IP) / 1 0"7. 


PRINT 
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2320 PRINT " O balanço passou a ser *M "5: PRINT INT(1 

0*BD>/10 ". M 

2330 LOCATE 0,21: STOP 

2340 9 ********************* 

2350 ' I N I C I AL I Z AC AO 

2360 ********************** 

2370 SCREEN0: KEY OFF 
2380 ML = 1000000# 

2390 P = 3*ML: REM POPULACAO 
2400 ü = P/10: REM DESEMPREGADOS 
2410 IV - 236: REM INVERSÃO 
2420 GE = UB: REM GASTO DD GOVERNO 
2430 GU = 0 : REM CUSTO DO DESEMPREGO 
2440 GI = 0 : REM t POR IMPOSTOS 
2450 WN = 100: REM NOVOS SALARIOS 
2460 WO - 100: REM ANTIGOS SALARIOS 
2470 IP = 5 : REM 7. DE INFLACAO 

2480 GDP = 440: REM PROD. NACION . BRUTO 
2490 AGDP= 440: REM BASE DO P.NAC. BRUTO 
2500 RGDP= 440: REM PNB REAL 
2510 CN = 354: REM CONSTANTE ECONOMICA 
2520 Z=1 : GAME=0: FLAG— 0 


2530 Y=0 


REM ANOS NA PRESIDÊNCIA 



30 Simulações no MSX 

2540 PRINT "DIGITE O SEU NOME, PRESIDENTE" 
2550 INPUT A* 

2560 BD = 0 
2570 RETURN 

2580 ' VERIFICA SE ACABOU A SIMULACAO 
2590 IF GAME=1 THEN CLS: GOTO 2070 
2600 RETURN 

2610 ' APAGA PARTE INFERIOR DA TELA 

2620 FOR H=1 TO 2 

2630 LOCATE 0, 19+H: PRINT " 

•I • 

9 

2640 NEXT H 
2650 LOCATE 0,20 


2660 RETURN 


► 


INTELIGÊNCIA ARTIFICIAL- 1 


A simulação da inteligência é um dos campos que tem recebido grande destaque na área 
da informática. 

Simulai a inteligência significa tentar fazei com que um dado cumputadoí coinpoite-se 
(tenha algumas atitudes) de modo semelhante aos seres humanos; mais precisamente, que ele 
“pense” como um homem. 

Nos seus primórdios a ciência da inteligência artificial fez com que alguns computadores 
fossem capazes de simular certos jogos e, com o passar do tempo, chegamos a ter, hoje em dia, 
sistemas inteligentes que auxiliam o homem nas mais diversas tarefas, desde a prospccçáo dc 
novos campos de petróleo até o diagnóstico de pessoas enfermas. 

Também existem os sistemas especialistas que, como o próprio nome indica, possuem 
o conhecimento dc centenas de experts em um dado assunto e muito tem contribuído para o 
desenvolvimento da humanidade. 

Neste capítulo, e no seguinte, trataremos do setor da inteligência artificial que lida 
com a simulação de jogos. 

Seu MSX simulará, a partir de agora, um jogo inteligente chamado LIGA 4, no qual 
dois participantes (você e o seu micro), cada qual na sua vez, colocam uma peça na posição 
disponível mais baixa numa coluna de um tabuleiro. 

0 tabuleiro onde ocorre a simulação tem 8 linhas e 8 colunas Será considerado vencedor 
o jogador que conseguir ligar quatro de suas peças lateralmente, em qualquer direção (vertical, 
horizontal ou diagonal). 

Observe que os programas que simulam a inteligência artificial “pensam" de maneira 
bastante diferente dos seres humanos. 
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Simulações no MSX 


Por exemplo, o programa da simulação LIGA 4 verifica todas as possibilidades de jogo, 
atribuindo valores para cada caso: atribui valores menores paia possibilidades ruins e valores 
maiores para as melhores possibilidades. 

É lógico que, ao terminar o processo de verificação das jogadas, o programa coloca a 
peça no local que corresponde ao maior valor, ou seja, à melhor jogada. 

Lembre-se de que 6 o programador (ou analista) dc uma dada simulação quem define o 
que é uma “boa jogada” e o que é uma “má jogada”. 

Isso significa que, alé ceito ponto, o programa reflete os pensamentos de seu criador; 
caso as idéias sejam boas e funcionais teremos uma boa simulação, caso contrário teremos uma 
simulação ruim. 

Para jogar LIGA 4 com seu MSX digite um número entre 1 e 8 e o seu computador, 
automaticamente, colocará sua peça na posição disponível mais baixa da coluna cujo número 
vocc digitou. 

Nas figuras abaixo as suas peças são representadas pela letra “o” e as peças do MSX são 
representadas pela letra “M". 

Porém, na tela do seu computador as suas peças são representadas por um “X“ e as 
peças de seu micro são representadas por um “C”: 


LIGA 4 

DIGITE A SUA JOGADA COM UM NUMERO 
ENTRE 1 o 8. 

TECLE O PARA REINICIAR. 


Esta é a primeira tela onde aparece o tabuleiro. 0 MSX permite que você inicie o jogo: 


12345678 


Sua VQ2... 


Digitei o número 4:* 
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123456/B 
Eu. • . 


Ele (o MSX) jogou na coluna 3: 


• ■ Mo. ■ • ■ 

12343678 


Sua vc2 . . . 


Coloquei a minha peça na coluna 6 para tentar ligar 4 peças na horizontal (colunas 4, 5, 

6 e 7): 


1231567B 

Eu. . . 


ü MSX bloqueou minha tentativa colocando uma peça na coluna 5... 
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. -MoHo.. 
12345670 


Sua vez . • . 


Joguei na coluna 5 para tentar formar uma diagonal: 


■ ■ • ■ Di • • 

. . MoMo. . 
12343670 
Cu. . . 


0 PS' Ele também está formando uma linha em diagonal!! 


• • • ■ 
.no. 
ttoHo 


12345678 
Sua vez... 


Jogo na 4 para continuar com a diagonal (já liguei 3 peças!): 
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a. 

Mo 

Maflo 


1234567B 


Mas... ele fez o mesmo! 

Até parece que está copiando as minhas jogadas!! 


• • • oM. ■ ■ 
...Mo... 

. .MuMu. . 

12343A7R 


Sua ver . . . 


Uso minha experiência (já joguei várias vezes. . .) e posiciono minha peça na coluna 3: 


. oM 
uMo 

MoMo 


12345678 


Eu. . . 


O MSX joga na coluna 3, de modo a continuar com mais uma linha em diagnnal 
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- . MaM 

. . uMu ... 
. . MaHa . . 

1 234567B 


Sua VB2 . . . 


Finalmente jogo na coluna 3 c: 


. . o. . • . . 

..MoM... 

. . oMo. . . 

• . Morto. . 

12345678 

OK! » VOCF GANHOU! 

NAO ACREDITO QUE CONSIGA FAZER DE NOVO! 
QUER TENTAR <S/N> ? 


Consegui vencer com a diagonal que vai desde o fundo da coluna 6 até o topo da 

coluna 3. 


A listagem do LIGA 4 está no próximo capítulo. 




CAPÍTULO g 


LISTAGEM DO LIGA QUATRO 


Caso você queira, pode modificar o formato das suas peças e das do computador: o 
desenho da sua peça é definido nas linhas de 2440 a 2510 e o desenho das peças do MSX é 
definido nas linhas de 2570 a 2640 

Note que aos uns correspondem os pontos cheios das peças e aos zeros correspondem 
os espaços vazios. 

Aprfs executar esta simulação, os formatos das letras "o" c “M” estarão alterados; para 
fazer com que voltem ao normal digite: 

SCREEN 0 *-* 

Recomendo muita atenção e desejo boa simulação!! 

1000 » ***************** 

1010 ' * LIGA QUATRD * 

1020 * ***************** 

1030 ’ 

1040 SCREEN0: KEYDFF: CLEAR &H1000: PRINT: PRINT 
1050 PRINT TAB (14) “LIGA 4" 

1060 PRINT 
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1070 PRINT " DIGITE A SUA JOGADA COM UM NUMERO ENT 
RE 1 e 8.": PRINT: PRINT- TECLE 0 PARA REINICIAR." 
10B0 FOR F= 1 TO 1000: NEXT F 
1090 GOSUB 2370 

1100 DIM AS (15, 15) : DIM B(15 f 2) 

1110 FLAG = 0 
1120 • 

1130 CS = "M M : HS = "o" 

1140 FOR F*0 TO 15: FOR G*=0 TO 15: AS CF , G > =CHRS < 0) : NEX 
T G f F 

1150 FOR F=5 TO 12 
1 160 B (F , 1 ) = 10 
1170 NEXT F 
1180 FOR F=S TG 10 
1190 FOR 6=5 TO 12 
1200 AS(F,G) = 

1210 NEXT G,F 

1220 * ***************** 

1230 » * LE SUA JOGADA * 

1240 ’ ***************** 

1250 GOSUB 1450 

1260 PRINT: PRINT TAB(15)"Sua vez...» 

1270 AS=INKEYS: IF AS=”" THEN 1270 ELSE A = VALCAS) +4 



Listagem do liga quatro 


39 


12B0 IF A-4 THEN RUN 

1290 IF A<5 OR A>12 THEN GOTO 1270 

1300 L = 4 

1310 IF A$CL+|,A> <> OR L-l 0 THEN GOTO 1340 

1320 L - L+l 

1330 GOTO 1310 

1340 IF L=4 THEN GOTO 1270 

1350 A$(L,A> - H$ 

1360 B(A, 1) = B<A P 1)-1 

1370 GOSUB 1450 

1380 GOSUB 2040 

1390 GOSUB 1590 

1400 GOSUB 1450 

1410 GOTO 1260 

1420 ' *###*#****##*#♦♦* 

1430 ' * IMPRIME JOGO * 

1440 ’ 

1450 CLS: LOCATE 0,6 

1460 FOR F=5 TO 10 
1470 FOR G*=2 TO 12 
1480 PR1NT TAB(15) 5 A4 (F,G> ; 

1490 NEXT G 
1500 PRINT 
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1510 NEXT F 

1520 PRINT : PRINT TAB ( 15) ; ” 1234567a" 

1530 PRINT 

1540 IF FLAG= 1 THEN PRINT "GANHE I ? ! " S GOTO 2200 
1550 RETURN 

1560 ' ***************** 

1570 * * JOGADA DO MSX * 

1500 » ***************** 

1590 PRINT TAB(15) "Eu- . . ■ 

1600 MV = 0 

1610 FOR F=5 TO 12 

1620 B<F,2>-0 

1630 NEXT F 

1640 FOR F=5 TO 12 

1650 FOR X=— 1 TO 1 

1660 FOR Y— 1 TO 1 

1670 IF B<F,l)-0 THEN GOTO 1730 

1680 IF A$<B(F,1)+X,F+Y) - CHRS<0) OR AS (B(F, 1 ) + X p F + Y ) 
■ THEN GOTO 1710 

1690 IF AS < B <F, 1 ) +X, F+Y ) = HS THEN GOSUB 1860 
1700 IF AS(B(F, 1>+X,F*Y> * CS THEN GOSUB 1960 
1710 NEXT Y 


1720 NEXT X 
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1730 NEXT F 

1740 P = 0 

1750 FOR F~5 TD 12 

1760 IF B <F, 2) >P T HEN LET P = B<F,2): N = F 

1770 NEXT F 

1700 A » N: L = B (N, 1) 

1790 AS<B(N,1),N) - CS 

1800 B (Np 1 ) * B (N, 1 > “1 

1810 N =• 0 

1820 P = 0 

1830 GOSUB 2040 

1840 RETURN 

1850 * 

1860 MV - 2 
1870 Ml * MV 

1880 IF AS(B(F f 1)+CX*2> ,F*<Y*2) ) = HS THEN LET MV = MV 
♦ 10 

1890 IF AS(B(F, 1)-X,F-Y)=HS THEN LET MV - MV + 20 
1900 IF MV <> hl + 10 THEN BOTO 1920 

1910 IF AS (B(F, l) + < X*3) p F+ ( Y*3) ) = HS THEN LET MV * MV 
+ 1000 

1920 B(F,2) = B(F,2> ♦ MV 
1930 Ml = 0 
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1940 RETURN 
1950 , 

1960 MV = 2 
1970 Ml = MV 

1980 IF A$ <B<F,l)+( X*2> , F+ ( Y*2) ) = C* THEN LET MV = MV 
+ 9 

1990 IF AS<B<F, 1>-X,F-Y> = C% THEN LET MV - MV ♦ 20 
2000 IF MV <> Ml +9 THEN GOTO 2020 

2010 IF A$ <B<Fpl)*M X*3) ,F+ ( Y*3) ) * C% THEN LET MV - MV 
+ 2000 

2020 B(F f 2) = B ( F, 2) +MV 
2030 RETURN 

2040 51 VERIFICA SE O JOGADOR VENCEU 

2050 7 USA APENAS AS COMBINACOES COM A MA 

TRIZ A*<LpA>. 

2060 BEEP 
2070 RESTORE 2240 
2080 FOR D=1 TO 3 
2090 FOR B=0 TO 3 
2100 LET TT = 0 
2110 FOR E=1 10 4 

2120 READ H P V: TT = TT + ASC < A* < L«-V , A-*-H ) ) 

2130 NEXT E 
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2140 IF TT = 4 * ASCÍH*) THEN GOTO 2180 

2150 1F TT = 4 * ASC (CS) THEN LET FLAG * IS GOTO 1450 

2160 NEXT B,D 

2170 RETURN 

2180 ' O JOGADOR VENCEU!! 

2190 PRINT “OK!! VOCE BANHOU! NAO 

ACREDITO QUE CONSIGA FAZER DE NOVO!" 

2200 PRINT "QUER TENTAR (S/N) ?" 

2210 AS-INKEY* 

2220 IF A* ** “S“ OR A* = “r" THEN RUN 

2230 IF A* = "N" OR A* - "n" THEN STOP ELSE BOTO 2210 

2240 ' 

2250 DATA -3, 0, -2, 0, -1 , 0, 0, 0 
2260 DATA -2, 0, -1 , 0, 0, 0, 1 , 0 
2270 DATA -1 , 0, 0, 0, 1 , 0, 2, 0 
2280 DATA 0, 0, 1 , 0, 2, 0, 3, 0 
2290 DATA -3, -3, -2, -2, -1 , -1 , 0, 0 
2300 DATA -2, -2, -1,-1, 0,0, 1, 1 
2310 DATA -1,-1, 0,0,1, 1,2,2 
2320 DATA 0, 0, 1 , 1 , 2, 2, 3, 3 
2330 DATA -3, 3, -2, 2, -1 , 1 , 0, 0 
2340 DATA -2, 2, -1 , 1 , 0, 0, l ,-l 
2350 DATA -1 , 1 , 0, 0, 1 , -1 , 2, -2 
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2360 DATA 0, 0, 1 , -1 , 2, -2, 3 f -3 
2370 ' 

2380 ' * REDEFINE LETRAS * 

2390 9 ***#*********###### 

2400 RESTORE 2440: FOR W=0 TO 7 
2410 READ A* 

2420 VPOKE 2936+W, VAL C "*<B •♦A*) 

2430 NEXT W 

2440 DATA 10000100 

2450 DATA 01001000 

2460 DATA 00110000 

2470 DATA 00110000 

2480 DATA 00110000 

2490 DATA 01001000 

2500 DATA 10000100 

2510 DATA 00000000 

2520 REM REDEFINE A LETRA M 

2530 RESTORE 2570 : FOR W=0 TO 7 

2540 READ A* 

2550 VPOKE 2664+Wp VAL < ,, &B ,, -*-AS) 
2560 NEXT U 
2570 DATA 01111000 
2580 DATA 01001000 
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2590 DATA 01001000 
2600 DATA 01001000 
2610 DATA 01001000 
2620 DATA 01001000 
2630 DATA 01111000 
2640 DATA 00000000 
2650 RETURN 




INTELIGÊNCIA ARTIFICIAL - II 


A partir deste capítulo seu MSX será capaz de disputar com você um complexo jogo de 
tabuleiro chamado MSXTHELLO. 

A ação ocorre num tabuleiro de 8 x 8 casas, sendo consagrado vencedor o jogador que 
conseguir ocupar o maior número dc casas do tabuleiro com suas peças ou eliminar todas as peças 
do adversário. 

Existem duas regras básicas para o posicionamento das peças: 

Primeira regra: cada peça colocada no tabuleiro deve tocar pelo menos uma peça do 
adversário. 

Segunda regra: deve haver, obrigatoriamente, uma outra peça do jogador do outro lado 
da peça adversária com a qual sua peça atual (colocada agora no tabuleiro) faz fronteiTa. 

Com as peças já colocadas, todas as peças do oponente que estiverem entre a peça nova 
e qualquer uma das peças antigas do jogador serão convertidas em peças do jogador atual. 

Não Importa se a linha formada entre as duas peças do jogador atual é vertical, horizontal 
ou diagonal ou até mesmo sc ocorre nas três direções; cm todos os casos, todas as peças oponentes 
que formem urna linha contínua entre a nova peça e as antigas serãu transformadas em peças do 
jogador atual. 

Imagine que suas peças são representadas pela letra “H** e que as peças do seu MSX são 
representadas por “C”$. 

Se uma dada linha de peças do tabuleuo fosse 
CCCCCCH 
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Iruehgincta artificial- U 
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e vocé colocasse uma nova peça “H” na casa da esquerda, todos os “C”s se transformariam em 
"H"K 

sua jogada: IICCCCCCH • 
conseqüéneia: HHHHHHHH 

Para posicionar sua peça nesta simulação você deve digitar dois números: primeiro o 
número da linha em que está a casa desejada (de 1 a 8) e, em seguida, o número da coluna 
(também de 1 a 8). 

Esta simulação de inteligência artificial é um bom exemplo de como um programa curto 
pode conter um “ótimo jogador”. 

Lembre-se de que esta simulação envolve vários macetes e estratégias de jogo!!! 

Nas telas abaixo suas peças são representadas peia letra “O” c as do MSX pela letra “X”. 

A primeira tela desta simulação nao é muito humilde .. . 


DFSAFIO VOCE 
E TODOS OS HUMANOS 
A JOGAR 

MSX - IHtLLÜ 


ItULE OLEO 


Note que você e o MSX iniciam a simu.ação com duas peças cada um, sendo o micro o 
primeiro a jogar: 
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Computador: 2 1 2 3 4 b 6 7 B 

Humano: 2 1 

2 

3 

4 . . . X O . . . 
5...0X.aa 

6 

7 

B 

MINHA JOGADA... 


Ele colocou uma peça em 46 (4? linha e ó? coluna). Ubserve que a peça que estava em 45 
liansformuu.se num “X' 1 : 


Computador: 4 1 2343670 

Humano: 1 1. ....... 

2 

3 

4 ... X X X . . 
S...OX... 

6 

7 

O 


Joguei em 36; veja o que ocorreu com a peça situada em 15 





Lntehfinaa artificial U 


•/y 

Computador : 3 1 234567Q 

Humana: 3 1 

2 

3 O . . 

4 ... X O X - . 

5-..OX... 

6 

7 



MINHA JOGADA... 


0 MSX jogou cm 64. 

Observe que no canto superior esquerdo da tela existe um placar indicando o número de 
peças de cada jogador: 


Computador 
Humano: 2 


17 3 4 5 6 7 8 


1 

2 

3 

4 

5 

6 
7 


. . D 
X 0 X 
X X . 
X . . 


8 





50 Sknuiaçôes na MSX 


Computador: 4 1 234567B 

Humano: 4 1 . 

2 . 

3 . 

4 . 

3 . 

6 . 

7 . 

0 . 

MINHA JOGADA... 


- - - O 
O 0 O X 
.XX. 
• X ■ ■ 


lh! Ele jogou em 42 ... 

Perdi todas as peças da linha 4... 


Computador: 0 12345A7B 

Humano: 1 

2 

3 . . . . . 0 . . 

4 . X X X X X . . 
5. ..XX... 
6...X.... 

7 

8 


F assim o jogo vai evoluindo, rep eto de surpresas! 

A Lstagem do M5X-THELL0 está no próximo capílulo 





LISTAGEM DO MSX-THELLO 


Lembre-se de que esta é uma simulaçdo complexa!! 

Mas éjogandu que se apiende;poi iw, bom jogo e boa simulaçio! 

1000 ’ MSX-THELLO 

1010 GOSUB 1740: REM INICIALI ZACAO 
1020 ’ 

1030 LOCATE 14,20: PRINT "MINHA JOGADA 
1040 s = ox: T *= x: H = 0 

1050 FOR A = 2 TO 9: FOR B = 2 TO 9 
1060 IF A< A, B) <> 46 THEN 1210 
1070 Q = 0 

1080 FOR C = -1 TO l: FOR D = -1 TO 1 
1090 K = 0: F=A: G=B 
1100 IF A (F+C, G+D) OS THEN 1130 
1110 K = K+l: F=F+C: G=B+D 

Ti 
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1120 GOTO 1100 

1130 IF A<F*C,G+D) < > T THEN 1150 
1140 Q = Q + K 
1150 NEXT D P C 

1160 IF A = 2 OR A « 9 OR B = 2 OR B = 9 THEN Q = Q * 2 

1170 IF A = 3 OR A - B OR B = 3 OR B = B THEN Q = Q / 2 

11B0 IF <A - 2 OR A = 9) AND <B = 3 DR B = 8) OR (A = 

3 OR A = 8) AND <B = 2 OR B = 9> THEN Q = Q / 2 

1190 IF Q < H OR (RND(-TIME) < .3 AND Q = H) THEN 1210 
1200 H=Q: M = A: N = B 
1210 NEXT B, A 

1220 IF H - 0 AND R « 0 THEN 1670 
1230 IF H = 0 THEN 1250 
1240 GOSUB 1560 
1250 GOSUB 1410 
1260 ' 

1270 LOCATE 14,20: INPUT "SUA JOGADA" ; R$ 

1280 IF R$ = "0" THEN 1300 

1290 IF RS < "11" OR RS > "88" THEN 1270 

1300 R = V/ALCR*) 

1310 REM DIGITE 0 PARA PASSAR A VEZ 
1320 S = X: T = OX 
1330 IF R *= 0 THEN 1390 
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1340 IF R < 11 OR R > 88 THEN 1270 
1350 R = R ♦ 11 
1360 M = INTíR/10) 

1370 N = R - 10 * M 

13B0 GOSUB 1560 

1390 GOSÜB 1410 

1400 GOTO 1020 

1410 REM IMPRIME TABULEIRO 

1420 LUCATE 14,20: PRINT " 

1430 C = 0: H = 0 
1 440 LOCATE 1 , 1 

1450 LOCATE 22, 2: PRINT " 1 2 3 4 5 6 7 0” S PRINT: 
= 2 TO 9 

1460 PRINT TAB< 19)18-15 
1470 FOR D = 2 TO 9 

1480 PRINT TAB<20)CHR*CACB,D> ) " "I 

1490 IF A (B, D) = X THEN C = C ♦ 1 

1500 IF A <B, D) = OX THEN H = H + 1 

1510 NEXT D: PRINT: PRINT: NEXT 

1520 LOCATE 2,2: PRINT "Computador: "C 

1530 LOCATE 2,4: PRINT "Humano:"H 

1540 IF (C + H = 64) OR C = 0 OR H = 0 THEN 16B0 


FOR B 


1550 RETURN 
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Simulações no MSX 


1560 FOR C = -1 TO l: FOR D = -1 TO 1 
1570 F = M: G = N 

1580 IF A<F+C P G+D) <> S THEN 1610 
1590 F = F + C: G =* G + D 

1600 IFCO0ORDO0 THEN GOTO 1 5B0 
1610 IF A (F+C p G+D) <> T THEN 1650 
1620 A <F P G> = T 

1630 IF M = F AND N = G THEN 1650 
1640 F = F- C: G = G - D: GOTO 1620 
1650 NEXT D,C 
1660 RETURN 
1670 GOSOB 1410 

1680 LOCATE 14,20: PLAY "V15ABCD” 

1690 IF C > H THEN PRINT "SOU O CAMPEAO ! ! " 

1700 IF H > C THEN PRINT "VOCE E' O CAMPEAO !! “ 

1710 IF H - C THEN PRINT "E M P A T A M O B ! ! " 

1720 END 

1730 ' ************* 

1740 * INIC IALI ZACAO 

1750 GOSUB 1900: REM TELA INICIAL 

1760 * 

1770 DEFINT A-Z 

1780 DIM A ( 10, 10) , C(9,9), DC9 P 9) P E<9 P 9> P F(9 P 9) P 6(9 
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,9), H(9,9>, J<9,9>, K (9 f 9) 

1790 X * 08: 0X = 79 

1800 FOR B = 2 TQ 9: FDR C = 2 TO 9 

1810 A (B, C) = 46 

1820 NEXT C,B 

1030 A (5, 5) - X: A<6,6> = X 

1840 A(6,5> = OX: A<5,6) = OX 

1850 P = 0 

1860 CLS 

1870 GOSUB 1410 

1080 RETURN 

1090 * ************ 

1900 ’ TELA INICIAL 
1910 KEY OFF: SCREEN 0 
1920 COLOR 1 5,0,0 
1930 WIDTH 40 
1940 CLS 

1950 LOCATE 13,7: PRINT “DESAFIO VOCE” 

1960 LOCATE 10,9: PRINT M E TODOS OS HUMANOS” 
1970 LOCATE 15,11: PRINT ”A JOGAR” 

1980 LOCATE 9,13: PRINT "MSX - THELLO" 
1990 LOCATE 15,22: PRINT "TECLE ALbO" 

2000 IF INKEY*=”” THEN 2000 ELSE RETURN 



CAPITULO 



BOLSA DE VALORES 


O seu computador trabalha somente com números, os quais podem representar desde 
o número de votos de cada candidato à Constituinte atê o número dc átomos de um dado 
elemento químico existente em todo o universo. 

Na simulação deste capítulo vamos colocar de lado os átomos c trabalhar com dinheiro! 

Você é um empresai k> que possui ações de cinco empresas e um capital inicial de 
1 5.000 cruzados. 

No início da simulação ê '«licitado o seu objetivo financeiro, que deve ser atingido 
nesta simulação: 

digite um número entre 16000 e 100000 e tecle - (ENTER). 

Sugiro que vocc inicie sua carreira de empresário das ações com objetivos financeiros 
modestos (algo entre Cz$ 16.000 e 17.000) e que. com o passar do tempo (e algumas simulações), 
aumente-os gradualmente. 

Uma vez indicado o objetivo, aparecerá na tela do seu MSX a situaçlo da Bolsa dc Valores 

no dia: 
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DIA 1 GCU ODJETIVO E’ Cz* 16000 


Cnpresa numero: 

1 2 3 4 5 

Probabilidade de incremento (X) 

-7 35 -4 83 28 

Probabilidade de decr ninei i to <X> 

18 23 23 12 20 

Vaiar atual por acao (Cz*> 

1-49 1.99 2.49 2.99 3.49 

Numero de acoes qua voce tem 
2000 1500 1200 1000 800 

BANCO CzS 265 VALOR TOTAI C.7% 15000 


DbSbJA VbNübK ALüUMA AL AU? 


Note que a cada dia você é informado sobre as chances (probabilidades) do valor de cada 
ação subir ou cair. 

Também sâo impressos dados referentes à quantia que vocé tem no banco (BANCO) e 
ao valor total do seu capital (VALOR TOTAL). 

Agora tecle < S > para vender ações ou < N > em caso contrário. 

Caso responda < S > a próxima tela poderia sei: 


DíA 1 SEU OBJETIVO E* Cz% 16000 


Empresa numero: 

1 2 3 4 5 

Probabilidade de incremento (X) 

-7 35 -4 83 28 

Probabi 1 i tíade de dec_r emeiilu (X) 

18 23 23 12 20 

Valor atual por acao (Cz9> 

1.49 1.99 2.49 2.99 3.49 

Numero de acoes que voce tem 
2000 1500 1200 ÍOOG 000 

BANCO Cz% 265 VALOR TOTAL Cz* 15000 


DE QUAL EMPRESA QUER VENDER? 
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Simulações no MSX 


e, depois de informar o número da empresa da qual vai vender açoes: 



Empresa numero! 

1 2 3 4 5 


Prubaü 1 1 1 úarle de incremento (X) 

-7 35 -4 83 28 

Probabilidade de decr emento <X> 

1B 23 23 12 20 

Valor atual por acao (Cz*i 

1.49 1.99 2.49 2.99 3.49 

Nuiner u de atoe* que voce tem 
2000 1500 1200 1000 800 

BANCO Cz* 265 VAL0P TOTAL Cx* 15000 

DC QUAL EMPREGA QUCR VENDER? 

UUANIAS DE 3 UUER VENDER'* 

? 1200 


seguindo se: 


DIA 1 SEU OBJETIVO E’ Cz* 16000 


Empresa numero! 

1 2 3 4 5 

Probabi 1 i dade de incremento <X> 

-7 33 -4 83 28 

Probabilidade de decremento (7.) 

18 23 23 12 20 

Vdlur atual pur acao <Czft) 

1.49 1.99 2.49 2.99 3.49 

Numero de acoes que voce tem 

2000 1500 O ÍOOO 800 

BANCO C-2% 3253 VALDR TOTAL Cz4 15000 


DFSF.1A COMPRAR Al RUMA ACAO'? 
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Resolvi comprar açóes da empresa 4 


UI A 1 SfcU UBJbllVU E' Cz* 16000 

Empresa numero: 

1 2 3 4 5 

Prohabi 1 idade de incremento (X) 

-7 35 -4 03 20 

Probabilidade da decrenanto (X) 

18 23 23 12 20 

Valor atual por acao ( Lz * > 

1.49 1.99 2.49 2.99 3.49 

Numer u de acues que vuce Lem 
2000 1500 0 1000 800 

DANC0 C*% 3253 VALOR TOTAL Cz» 15000 

DE QUAL EMPRESA QUER COMPRAR? 

UUANIAS DE 4 UUEK COMPRAR? 

? 1000 



DIA 1 SEU OBJETIVO E* Cz% 16000 


Empresa numero: 

1 2 3 4 5 


Probabilidade de incremento 
-7 33 -4 83 28 


Probabilidade de doer «mento (X) 

10 23 23 12 20 

Vai or atual por acao <Cz*> 

1.49 1.99 2.49 2.99 3.49 

Numero de acoes que voce tem 

2000 1 300 O 2000 BOO 

BANCO Cz* 263 VALOR TOTAL Cz* 13000 


TECLE ESPAÇO PARA PROSSEGUIR 
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Voce pode efetuar, no máximo, uma operação de venda e uma operação de compra de 
ações por dia. 

A mensagem TECLE ESPAÇO PARA PROSSEGUIR indica o término de um dia de 
atividades na Bolsa de Valores. 

Somente no próximo dia de atividades você saberá qual foi o comportamento de suas 
ações e de seu capital e também se atingiu o seu objetivo. 

Passemos ao dia 2: 


Ü1A 2 SEU OBJETIVO E’ Cz* 16000 


Empresa numero: 

1 2 3 4 5 

Probabi 1 idade de incremento (X) 

57 -14 29 17 -IO 

Probabilidade rie d err emento (X) 

2b 1B 8 6 24 

Valor atual por acao (Cz*> 

1.49 7.01 2.49 3.23 3.49 

Numero de acoes que voce tem 
2000 1500 0 2000 BOO 

BANCO C z% 263 VALOR TDTAI Cz* 15531 


DFSFJA VFNDER ALGUMA ACAQ7 


Opsü O seu capital aumentou Czl 531 de um dia para outro! Nada mal para um novato, 

hein?! 

Mostramos, a seguir, as possíveis telas de uma simulação da Bolsa de Valores com um 
objetivo de Cz$ 1 6.000. 
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DIA 2 SEU 

OBJETIVO E* 

Cz* 

16000 

Empresa numero 

• 




1 2 

3 

4 

5 


Probabi 1 i dade 

de incremento <X) 


57 -14 

79 

17 

10 


Probabi 1 1 dade 

de deeremento ÍX> 


25 18 

B 

6 

24 


Vai ur atual pur dL ao 

<Czt> 



1.49 2.01 

2.4V 

3.23 

3-49 


Numero de acocs que 

/oce tem 


7000 1500 

0 

2000 

aoo 


BANCÜ Cz% 263 

VALOR 

TOTAL 

CzS 

15531 


üfc UUAL LMPHfcbA UUbK VENDER 7 


ü I A 2 SEU 

OBJETIVO E' 

Cz * 1 6000 

Empresa numero 

• 

• 



1 2 

3 

4 

5 

Pr nhahi 1 i dade 

de Incremento (X) 

57 -14 

29 

17 

10 

Probabi 1 i dade 

de decrtnento (X) 

25 18 

8 

6 

24 

Valor atual por acao 

(Uz*> 


1.49 2.01 

2.49 

3.23 

3.49 

Numero de acoes que voca tem 

2000 1 500 

O 

2000 

800 

BANCO Cz* 263 

VALÜR 

ÍÜIAL 

Lz* 15531 


DE QUAL EMPRESA QUER VENDER? 
LRJANIAS DE 2 QUER VENDER 7 
? 2000 


Venderei ações da empresa 2: 
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Simulações no MSX 



Empresa numero: 

1 2 3 4 5 


Probabilidade de incremento (X) 

57 -14 29 17 -IO 

Probabilidade de decr emento (X) 

25 18 8 6 24 

Valor atual por ac ao (Cz*> 

1.49 2.01 2.49 3.23 3.49 

Numero de acoes que voce tem 
2000 1500 O 2000 800 

bANLU Lz% 26 S VALOR TOTAL Cz * 15531 

DE QUAL EMPRESA QUER VENDER? 

QUANTAS DE 2 QUER VFNDFR^ 

? 2000 

NAU PDSSU1 TANTA5 ' 1 


OPS! Tentei vende: o que não tinha! Agora corrigir o erro: 


DIA 2 SEU UbJElIVU E' CzS 16000 


Empresa numero: 

12 3 4 5 


Probabi 1 1 dade de incremento (X) 

57 -14 29 17 -10 

Probabilidade de d ecr emento <X) 

25 1 8 8 6 24 

Valor atual por acao IC2») 

1.49 2.01 2.49 3.23 3.49 

Numera de acoes que voce tem 
2000 1500 O 2000 800 

DANCO Cz* 263 VALOR TOTAL Czf 15531 

DE QUAL EMPRESA QUER VENDER? 

QUANTAS ÜE 2 QUER VENDER7 

? 2000 

NAÜ POSSUI I AN IAS!! 

9 1500 
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EmprEbd numero: 

1 2 3 4 5 


Pr nlirtli i 1 * üdJe de incremento <*4> 
57 -14 29 17 -10 

Probabilidade de decremento IX) 
25 10 B 6 24 

Valor atual pnr ar ao (C/*) 

1.49 2.01 2.49 3.23 3.49 


Numer o de acoes que voce te* 

2000 0 0 2000 800 


BANCO Cz* 3283 VALOR TOIAL Lx% 15551 
DEBEJA COMPRAR ALÜUMA AC AO? 


Comprarei ações da empresa 3, pois apresenta boa possibilidade de aumento na cotaçío: 



Empresa nunern: 

1 2 3 4 5 


ProbaQilldadP d» inrrpmento (X> 

5/ -14 29 17 -IO 

Probabilidade de decremento (X) 

25 1 8 8 b 24 

Valor atual por acao (Cz*> 

1.49 2.01 2.49 3.23 3.49 

Numero de arnps que voce tem 
2000 0 O 2000 Q00 

BANCO CzS 3283 VALOR TOTAL Cz% 15531 


DE QUAL EMPRESA QUER COMPRAR? 
QUANTAS DE 3 QUER CUWPRAK7 

*> ÍOOO 






Empresa numero: 

1 2 3 4 5 


Probabilidade de incremento <X> 

57 -14 29 17 -10 

Pr ubaüi 1 i riadp de decremento (Z) 

25 1B Q 6 24 

Valor atual por acao <CzS> 

1.49 2.01 2-49 3.23 3.49 

Numero de acDos que voce tem 
2000 O 1000 2000 BOO 

BANCO C7+ 793 VALOR ÍUIAL Lz% 15531 


TECLE ESPAÇO PARA PROSSFGUIR 


Note que as cotações das ações 1 c 4 subiram no dia 3: 



DIA 3 SfcU OBJETIVO E’ Cz* 16000 


bmpresa numero: 

1 2 3 4 5 

Frubabi 1 1 dadp rtP incremento (X) 

31 32 7 93 -7 

Probabilidade de decremento <X> 

4 25 29 7 15 

Valor atual por acao <Cz4> 

1.57 2.01 2.49 3.29 3.4 

Numero de acue*» que voce tem 
2000 0 IOOO 2000 600 

BANCO Cz % 793 VALOR TOTAL C c% 15745 


DESEJA VENDER ALGUMA ACAO*? 
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Sim. desejo! 


DIA 3 SEU 

OBJETIVO E ' 

C2* 

160U0 

Empresa numero 

• 

• 




1 2 

3 

4 

5 


PrDbab» I i dade 

de incremento I 7.) 


31 32 

7 

93 

■7 


Hrobabi 1 i dade 

de flecr emento iV.) 


4 25 

29 

7 

15 


Vai uf dLudl por acao 

<Cz*> 



1-5/ 2.01 

2.49 

3.29 

3.4 


Numero de acoes que 

woce tem 


2000 0 

lOOO 

7000 

SOO 


BANCO O* 797. 

VAI OR 

TOTAL 

Czt 

13745 


DF QIIA1 FMPRFSA Í3UFR VENDFR? 


DIA 3 SEU UR Jt I I V/U fc # Cz% 14.000 


Empresa numero: 

17 3 4 5 

Pr obab » 1 i dade úe incremento (X> 

31 32 7 93 7 

Prnhibi 1 iddüe de deurumento <Z) 

4 25 29 7 15 

Valor atual por acao (Cat) 

1.37 2.01 2.49 3.29 3.4 

Numero de' acoes qne vore tem 
2000 0 1000 2000 000 

BANCO 793 VALOR TOTAL Cz% 15745 


DF OU AL EMPRESA QUER VENDER? 
QUANTAS DE 5 QUER VENDER? 

? BOO 



66 


Sbrurfaçtex no MSX 


DIA 3 SEU OBJETIVO F' CzS 16000 

Empr ebd numera: 

12 3 4 5 

Probabilidade de incremento (X) 

31 32 7 93 -7 

Probabilidade de decremento <X> 

4 25 29 7 15 

Valor atual por acao <Cz*> 

1.57 2.01 2.49 3.29 3.4 

Numero de ecoes que voce tem 
2000 O ÍOOO 2000 0 

BANCO Cz% 3519 VALOR TOTAL Cz% 15745 


DESEJA COMPRAR ALGUMA ACAO'' 


Vou comprar açOes da empresa 4 porque é quase certeza que a cotação delas vai subir: 


DIA 3 SEU OBJETIVO E’ Cz * 16000 


Empresa numero: 

1 2 3 4 5 

Probabilidade de incremento <X> 

31 32 7 93 -7 

Probabilidade de decremento <*/.) 

4 25 29 7 15 

Valor atual por acau (Cz4) 

1.57 2.01 2.49 3.29 3.4 

Numera de acoes que voce tem 

2000 O 1 OOO 2000 O 

BANCO CzS 3519 VALOR TOTí*_ Cz* 15745 


DE UUAL LMPKLSA UULK CUMFKAK * > 
QUANTAS DE 4 QUER COMPRAR? 

7 ÍOOO 
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DIA 3 SEU OBJETIVO E* Cz* 16000 


Enpr ebà numero: 

12 3 4 3 

Probabilidade de incremento <X> 
31 32 7 93 -7 

Probabilidade de dec remonto <X) 
4 25 29 7 15 

Valor atual por aran <Cz*) 

1.57 2.01 2.49 3.29 3.4 


Numera de «coes que voes tem 

2000 ü 1 ÜOO 3000 O 


BANCO C z* 226 VALOR TOTAL Cz * 15743 


ÍECLE ESPAÇO PARA PROSSEGUIR 


Entramos no dia 4 com uma surpresa: u objetivo foi atingido! 



Empresa iiumet u: 

1 2 3 4 5 


Probabilidade do incremento (X) 

IV 7 53 17 48 

Probabilidade de decremento C7.) 

6 19 14 10 30 

Valor atual pur acao (CzS) 

1.57 1.96 2.49 3.59 3.4 

Numero de acoes que vace tem 

2000 O 1 OOO 3000 p 

BANCO Cz* 226 VALOR TOTAL Cz* 16664 



A listagem da Bolsa de Valores está no próximo capítulo. 



CAPÍTULO 




LISTAGEM DA BOLSA DE VALORES 


Para alicrar o nível de dificuldade desta simulação substitua o número 55 na linha 230 
por outro número (leia o comentário da linha 220 para maiores informações). 

10 ' tí U. L S A DE VALORES 

20 ' 

30 ' 

40 DIM S! <5> ,N! (5) ,P! (5) ,D! (5) 

50 KEY OFF 

60 FOR Cü=l TO 5: READ SCCO): NEXT CO 
70 DATA 1.49, 1.99, 2.49, 2.99, 3.49 
Ü0 FOR Cü=l TO 5: READ N(CO): NEXT CO 
90 DAÍA 2000, 1500, 1200, 1000, 800 

100 BB=2Ó5: TV= 15000: QQ=TV: DIA-l 

110 SCREEN0: PRINTSPRINT" INFORME 0 SEU OBJETIVO PARA E 
ST A SIMULA-CAO"; 
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120 PRINT; ” (de CzS16000 a CzS100000)" 

130 PRINT: INPUT "Objetivo: CzS " ; OBJETIVO 

140 IF OBJ ET IVO< 16000 THEN PRINT "MUITO BAIXO!!": BQSU 

BI 330: GOTO 110 

150 IF OBJETI V/O > 1 00000 * THEN PRINT "MUITO ALTON": G 
OSUB 1330: GOTO 110 


160 ' 

170 ’ ************<HHHMt******* 
180 r * LOOP PRINCIPAL * 


190 * ************************ 

200 ’ 

210 FOR C-l TO 5 

220 'MQDI FICA-SE □ VALOR 5b DA LINHA SEGUINTE P/MUDAR 

O JOGO: 80*MUITO DIFÍCIL, 30=MUITQ FACIL 

230 D<C>=INT (RND (9) *55) «■ 1 

240 P<C)=INT ( RND ( 9 ) * 1 00— D ( C ) > ♦ 1 

250 NEXT C 

260 GOSUB 300 

270 GOTO 560 


280 ** 

290 F ************************ 
300 ’* IMPRESSÃO * 


310 ' 


************** 
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320 » 

330 CLS 

340 PRINT" 

350 PRINT ••DIA*'; DIA; - SEU OBJETIVO E' Cz* ";OBJE 

TIVO 

360 PRINT" • 

370 PRINT "Empresa numero:" 

380 FOR 1=0 TO 4: PRINT T AB ( 2+ 1*6) 1 + 15 : NEXT IS PRINT 
: PRINT 

390 PRINT"Probabi 1 idade de incremento (X)" 

400 FOR 1-0 TO 4: PRINT TAB (2+1*6) P (1+1);: NEXT I: PR 
int: PRINT 

410 PRINT "Probabilidade de decremento (X)” 

420 FOR 1=0 TO 4: PRINT TAB <2+1 *6) D C I +1 > ; : NEXT I: PR 
INT: PRINT 

430 PRINT "Valor atual por acao <Cz*> " 

440 FOR 1=0 TO 4: PRINT TAB<I*6+2) INT (S ( I + 1 ) * 100) / 1 00 

; : NEXT i :print:print 

450 PRINT "Numero de acoes que voce tem" 

460 FOR 1=0 TO 4: PRINT TAB<2+I*6) N(I+1);: NEXT IS PR 
INT: PRINT 

470 PRINT "BANCO CzS" INT(BB) " VALOR TOTAL CzS" INT < T 


V) 
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480 PRINT" 

490 IF TV>OBJETIVO THEN PRINT "OBJETIVO COMPLETO! PARA 

BENS ! ! ! " : STOP 
500 RETURN 


510 ' 

520 ' ***************»■***♦♦♦♦*** 
530 '* VENDER * 

540 5 **+********+************** 

550 * 


560 PRINT '* DESEJA VENDER ALGUMA AC AO?" 

570 A* = INKEY* 

580 IF A*<>"S" AND A*<>”N* AND AIOS" AND A*<>"n" THE 
N GOTO 570 

590 IF AS="N" OR A*="n" THEN GOTO 810 
600 GOSUB 300 

610 PRINT "DE QUAL EMPRESA QUER VENDER?" 

620 A* = INKEY* 

630 IF A*< M 1" OR THEN GOTO 620 

640 C = VAL < AS) 

650 PRINT "QUANTAS DE " C " QUER VENDER?" 

660 INPUT N 

670 IF N>N(C> THEN PRINT "NAQ POSSUI TANTAS!!": GOTO 6 
60 
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680 ' 

690 ' 

700 9 + AJUSTE DE VALORES * 

710 * ****•**•■***♦♦♦♦********####* 

720 • 

730 BB = BB+S <C)*N: * SOMA VALOR NO BANCO 

740 N (C) = N<C)-N: * RETIRA ACOES VENDIDAS DO TOTAL 

750 TV=0: ' COLOCA VALOR TOTAL EM ZERO 

760 9 DETERMINA O VALOR ATUAL 

770 FOR C=1 TO 5 

700 TV = TV+N<C>*S<C> 

790 NEXT C 

800 TV = TV+BB : 9 SOMA AO BALANÇO DO BANCO 
010 GOSUB 300 
B20 ' 

830 ’ *«»***»««««««**»»»***»**•*« 

840 9 * COMPRAR * 

850 9 ****»***#««««««#*«****»»*** 

B60 9 

B70 PRINT "DESEJA COMPRAR ALGUMA ACAO?"* 

880 A* = INKEY* 

890 IF A$< >"S" AND A*<>"N" AND AK>"s" AND AfO M n M 


THE 


N GOTO 880 
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900 IF Aí~ M N” QR A$=*"n" THEN GOTO 1060 
910 GOSUB 300 

920 PRINT M DE QUAL EMPRESA QUER COMPRAR?- 5 
930 Aí = INKEYÍ 

940 IF Aí < " 1 " QR Aí >"5“ THEN GOTO 930 
950 C * VAL < Aí ) 

960 PRINTIPRINT -QUANTAS DE ” C " QUER COMPRAR?” 

970 INPUT N 

9G0 IF N#S (C) >BB THEN PRINT ”NAO TEM DINHEIRO SUFICIEN 
TE!”: GOTO 970 
990 ' 

1000 '■******##****♦♦♦**#**#*#*#♦* 

1010 AJUSTE DE VALORES * 

1020 ' ***********MHHHI*********** 

1030 * 

1040 BB = BB-S <C)*N 
1050 N <C) = N<C)+N 
1060 TV - 0 
1070 FOR C=>1 TO 5 
1080 TV = TV+N<C)*SCC> 

1090 NEXT C 
1100 TV = TV+BB 


1110 GOSUB 300 
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1120 ’ 

1 130 9 *************************** 

1140 '* MUDA TODOS INDICADORES * 

1150 **************************** 

1160 » 

1170 TV * 0 

1180 FOR Ol TO 5 

1190 K ■ INT CRND <9) *100) *1 

1200 IF K<P<C) THEN LET S<C) =S (C) * ( I* (P (C) /I 000) ) 
1210 K * INT<RND<9>#100)+1 

1220 IF K<D(C> THEN LET S (C) -S CC) / ( 1 * (D (C) / 1 000) ) 
1230 TV - TV+(S(C>*N<C>> 

1240 NEXT C 
1250 TV = TV-f-BB 
1260 QQ = QQ* 1.005 

1270 PRINT: PRINT” TECLE ESPAÇO PARA PROSSEGUIR" 

1280 IF INKEY* <> H » THEN 1280 

1290 DIA - DIA * 1 

1300 GOTO 210 

1310 END 

1320 ' LOQP DE TEMPO 

1330 FOR JJ=1 TO 300: NEXT JJ: RETURN 





E AGORA . ..VOAR !! 


Os simuladores de vòo sao, .. provavelmente, as simulações mais conhecidas em 
computadores. Embora a maioria de nós nunca tenha aprendido a voar, tenho certeza 
de que gostaríamos de experimentar essa sensação. Um simulador de vôo em um computador 
nos dá a oportunidade dc sentir um pouco essa sensação dc estar voando. 

A principal dificuldade de um piloto é ter de estar atento a um número muito grande 
dc parâmetros que mudam a cada instante e simultaneamente. Ignore qualquer um deles - como 
o ângulo de vôo ou o nível do combustível que abaixa a cada instante - por um longo período 
de tempo e provavelmente irá de encontro ao solo! 

Embora esta simulação não ocorra em tempo real e, portanto, você tenha a oportunidade 
de analisar a situação global antes de dar um comando, verá que ela é um desafio enorme. 

Até a decolagem de um avião é difícil nas primeiras vezes. E. uma vez no ar, terá de lutai 
a cada instante para ficar aí. 

E quando tentar pousar... 

Sofrer acidentes no pouso é um dos perigos dos aviões reais. Você ficará muito feliz ao 
notar que pode tentai pousai esse simulador sem grandes riscos... 


INTRODUÇÃO AOS CONTROLES 

Esta simulação é a mais completa e complexa deste livro, sendo necessário um tempo 
maior para aprender a utilizá-la. 

O tempo dispendido será amplamente recompensado tendo-se em vista que, com certeza, 
esta simulação trará momentos de grande lazer e emoção. 
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0 vôo é dividido em três panes ou etapas, cada qual com suas características específicas: 
a primeira é a decolagem, a segunda o vôo em si e a terceira o pouso. 

Conseguirá ser um bom piloto se dedicar-se a apenas uma das etapas de cada vez. 

E mais: não desista se suas phmeiias vinte tentativas de pouso terminarem em desastres. 
A satisfação que sentirá ao conseguir pousar perfeitamente compensará toda a frustração da etapa 
de aprendizagem. 

Isto éo que você verá ao executar o programa pela primeira vez: 


HORIZONTE 

I 

BÚSSOLA 


1 

1 

• N. 


1 

I 

0 — X — E 


1 

• ■ : • • 


1 

.6. 

Ka. 0 ! TEMPO 

. 1 

128 

VEL.ARS 0 
0 

altímetro: o 
0 

0 

Graus 

GASOLINA: 750 

• to 

• 

1 

>RODAtí*P/FGRA< 1 


Acima, à esquerda, está o horizonte, o qual pode mover-se repentinamente de lado a lado, 
quando você inclinar o avião (fizer curvas ou mudar a inclinação do avião com relação ao chão). 

À direita do horizonte está a bússola. 0 símbolo t4 @** indica a direção para a qual o avião 
está apontando. Sempre inicia se o vôo apontando para o norte. 

Mais abaixo, no painel de instrumentos, pode-se observar a direção exata em que o avião 
está voando, na linha do ALTftlETRO, onde está escrito “0 Graus”. 

Os instrumentos abaixo do horizonte e da bússola informam a distancia percorrida pelo 
avião (o raio a partir da posição inicial) e o tempo de vôo. 

Abaixo desses instrumentos encontram-se x>s indicadores da velocidade do ar, da altura 
em que se encontra o avião e do combustível. 





F agora... voar'.' 
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A ELEVAÇÃO indica o ângulu do avião com relação ao solo; uma elevação igual a zero 
indica que o avião está paralelo ao solo, uma elevação de 30 graus indica que o avião está subindo 
com um ângulo de 30 graus em relação ao solo. Já uma elevação negativa indica que o avião está 
com o bico para baixo, ou seja, que ele está descendo. 

Sempre que você dá um comando, ao digitar um caractere, aparece o comando 
correspondente na mesma linha em que ocorre a indicação da elevação. Por exemplo, ao pressionar 
“L” aparecerá a mensagem “ACELERAR”. 

Finalmente, o último instrumento do painel indica a posição do trem de aterrissagem: 
se está para foca ou paia dentio. 

Depois de alguns poucos comandos a tela pode estar assim: a velocidade do ar é 78, 
estamos a 210 unidades de altura, o combustível reduziu para 651 litros e o avião está formando 
um ângulo dc 6 graus em relação ao solo: 


HORIZONTE 

1 BÚSSOLA 


i 

I .N. 

1 

fttfttfttttt 

: 0 — x— E 


i • • • • • 

• 


1 .8. 

Km. 1 . B : TEMPO 

2.2 : 121 

V/EL. ah: 70 

ftftftO 

altímetro: 210 
gasolina: 691 

337 erauB 
\o 

ELEVACAO : 6 S ACELERAR 
> RO DAS DENTRO< 


Observe agora que o horizonte está inclinado, pois o avião está virando para a direita. 
A direção atual é de 59 graus: 




Simulações no MSX 



i *# i 

t »« I 

: ** : .s. 

: Km. 3.7 S TEMPO 3.3 : 121 

I 

1 vel.ar: 72 

: «fti o 

í ALTÍMETRO: 294 39 6r«uft« 

i iftiiiiftftia 

: gasolina: 602 

I IftftlfftftlftiftltftlO 

I ELEVACAO : 1 : DIREITA 
1 >KUDAS DfcN I KU< 


Dei o comando “POUSAft” c a inclinação do avião passou a ser -25 fcraus, sendo que o 
avião começou a cair (a altitude diminuiu e a velocidade aumentou!): 






E agora... voar!! 
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A situação é desesperadora! 

A velocidade do ar aumentou para 102 e o ivião está prestes a ir de encontro ao solo! 


Rapidamente dou o comando ‘'SUBIR”: 


HORIZONTE 

1 BUSSULA 

t 

• 

•• 

«••• 

! «N. 

i : a. 

: o — x — e 

< • 

1 

t 

\ 

1 

1 


I .8. 

1 

K«. 4.U : IEMPO 

4.3 : 121 

1 

i 

vel.ar: 102 

ftSIIIO 

altímetro: 3 
o 

GASOLINA: 569 

56 tirausi 

1 

1 

1 

1 

1 

1 

! ELLVACAU :-23 S SUB IR i 

! >RODAS D£NTRO< 



Mas o resultado é inevitável...: 


CRASH! 

CRASH! 

CRASH! 

CHASH! 

CRASH! 

CRASH ! 

CRASH' 

CRASH! 

CRASH! 


CRASH! 
CRASH ! 

CRASH! 
CRASH ! 
CRASH! 
CRASH! 
CRASH! 
CRASH' 


CRASH! 

CRASH! 

CRASH! 

CRASH! 


CRASH! 
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A última tela da simulação é bastante significativa; 


HORIZONTE 

t 

BÚSSOLA 

# *C R»* A •• 

• 

.N. 

*• A ** 6» H* 

I 

• 

R** A •* S* 

| 

.. : •. 

•C R«* A •• S 

1 

0 — X — E 


J 

• • • • • 


1 

• 


1 

.s. 

Km. 4.9 :TEHPO 

4.4 

: 121 

VEL.ARS 106 
0 



ALTÍMETRO: 0 

55 Gr Au» 

0 

gasolina; 365 






ELEVACAO :-20 í DECOLAR 

— 




No capítulo seguinte você será introduzido aos CONTROLES DE VftO. 







INTRODUÇÃO AOS CONTROLES DE VOO 


COMO LEVANTAR VÕO: 

Para levantar vòo é necessário que o aviáo esteja com uma velocidade entre 45 e 60, e o 
grau de elevaçgo deve ser maior que 10 (o ideal í algo próximo de 15 graus). 

As telas a seguir térn a função dc auxiliá-lo nas suas primeiras decolagens. 

A tela abaixo é a tela inicial da simulação: 



1 HORIZONTE 

BÚSSOLA 

1 

1 

I 

1 

: 

.N. 

• ■Vas 

1 

: 

i 

t 

1 

: 

• 

• 

.5- 

i 

i 

i 

1 Kfl. O S TEMPO - 

: 249 

i 

t 

1 

1 VEL.ARi 0 
1 O 

i altímetro: o 
: o 

1 GASOLINA: 730 

0 Graus 
10 

t 

i 

: 

: 

• 

t 

t 

1 >RODAS P/FORA< ! 

, : 
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Vou acelerar o avião (tecla L) para atingir a velocidade de decolagem 



HURIZONTE 

\ BÚSSOLA 

f 

1 


1 .N. 

S 

: 


• - • > • • 

: o — x — e 

• 

■ 

• 

' i 


• • 

1 -S. 

i 

i 

K«. 0 : TEMPO 

.2 I 249 

• 

• 

vcc. Am 7 
0 

altímetro: o 
0 

gasolina: 745 

0 Graus 

• •O 

* 

• 

i 

i 

t 

I 

i 

t 

ELEVACAO : 0 : ACELERAR 1 

>RODAS P/FORA< t 


Após alguns comandos de “ACELERAR" é esta a situação geral: 


HOR I ZONTE 

1 

1 

BÚSSOLA 


: 

I 

. N. 
• • B • 


i 

i 

i 

O — X — E 


i 

• 8. 

Km. .2 : TEMPO 

.6 

249 

VhL-AR: 35 

§0 

altímetro: o 
0 . 

gasolina: 725 

O 

Graus 


ift§0 


ELEVACAO : O : ACELERAR 

>RQDAS P/F QRA< 
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Embora a velocidade do avião não seja a ideal, 
rclaçáo ao solo: 


vou começar a incliná-lo (tecla Q) em 


HORIZONTE 

: BÚSSOLA 

1 

t 


I .N. 

t ..a.. 

S 

t 

• 


1 O — X — E 

fl • 

t 

1 


f • 

1 .8. 

1 

1 

Km. .3 STEMPO 

\7 S 249 

1 

1 

vel.ar: 32 
§0 

ALTÍMETRO: 0 

O 8r «uh 

1 

t 

1 

0 

bASOLlNA: 720 

ftfi 0 

1 

1 

1 

ELEVACAO S 5 : DECOLAR 

1 

>KUDAS P/FUKAC 


1 


Note que a velocidade do aviáo diminui devido à sua inclinação. 

Dou mais um comando “DECOLAR" (tecla Q) para atingir a inclinaçáo de decolagem 

(a velocidade continua caindo...): 



HORIZONTE 

\ BÚSSOLA 

1 


1 .N. 

: 

1 

1 

t 


1 O — X— E 

1 

1 


• 

1 .s. 

1 

1 

Km. .4 : TEMPO 

.9 : 249 

1 

■ 

vel.ar: 24 

%o 

altímetro: o 

0 

0 Graus 

I 

1 

1 

: 

gasolina: 711 

*0 

t 

t 

• 

1 ELEVACAO : 15 : decolar 

! 

1 >RODAS P/FORAC 


S 
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Agora devo acelerar o avião para atingir uma boa velocidade de decolagem: 


HORIZONTE 




Km. -7 : TEMPO 1.3 : 249 

vel.ar: 40 

fi %0 

ALIIMEIHU: 0 O Graus 

0 

GASOLINA: 692 

BIlIftlIftlIfttlfttHO 

ELEVACAQ : 15 : ACELERAR 
> ROO AS P/FORA< 


BÚSSOLA 

.N. 



0 — X — E 


. S. 


Como a velocidade não é suficiente, acelero mais o avião, que finalmente levanta vóo 
(observe o altímetro): 


HORIZONTE 




Km. .9 



: TEMPO 1-3 : 249 


O tiraus 


I 

J VEL.AR: 48 

I & %0 

: altímetro: 25 
; 0 

: GASUL 1 NA: 683 

: bfe&fcbfcfi&fefcftifciififeO 

! ELEVACAQ : IS : ACELERAR 

i >R0DAS P/FORA< 




introdução aos controles de vôo 
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Para fazer um bom vôo e economizar combustível recolho o trem de aterrissagem 
(tecla 1). Note que a altitude do avião aumenta, devido á reduçào do atrito de suas rodas com o ar; 


HORIZONTE 

1 BÚSSOLA 


1 .N. 


S 0 — X — E 
i .. : .. 


1 . . : . . 

1 .8. 

Km. 1 : TEMPO 

1.6 : 249 

vel.ar: 44 

*•0 

altímetro: so 

90 

gasolina: 670 

339 Graus 

0 

>R0DAS DENTRO< 


COMO POUSAR: 

Para pousar, a velocidade do aviao deve ser inferior a 20, o trem de pouso deve estar para 
fora. a direção de vôo não deve variar mais de 12 graus daquela indicada abaixo da bússola, e o 
altímetro deve marcar menos que 15. 


COMANDOS EXISTENTES: 

“L J : usado para acelerar o avião; 

44 . ” usado para desacelerar o avião; 

“Q” : usado para aumentar a elevação (inclinação); 

“A*' : usado para diminuir a elevação do avião; 

“Z” : usado para fazer curvas à esquerda; 

“M” : usado para fazer curvas à direita; 

“1” : usado para mudar o trem de pouso de dentro para fora ou vice-versa. 
A listagem completa do SIMULADOR DE VÔO estã no capítulo seguinte. 






Listagem do simuiador de \ >ôo 
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1080 CLEAR &H1000: RPT = 0 

1090 LD = INT(RND(-TIME)*360)+1 

1100 DIM E* (1000) : REM GUARDA REGISTRO DE VOO 

1110 DIM C*<7)-, A* < 7 > : REM GUARDAM Q HORIZONTE E BUSSO 

LA 

1120 5CREEN1 : CLS 

1130 * ******************* 

1140 ’ * INICIAL I Z ACAO * 

1150 ’ ******************* 

1160 GOSUB 3520! REM INICIALIZA VARIAVEIS 

1170 1F CRASH=0 THEN GOSUB 1930: REM HORIZONTE E BUSSO 

LA 

ilB 9 GOSUB 1600: REM IMPRESSÃO DA TELA 

1190 IF CRASH— 1 THEN END: REM FIM álMULACAO 

1200 IF TI E=1 AND TFLAG* l THEN PRINT "UM POUSO PERFEIT 

O!! QTIMOÜ": FOR Z7.=250 TO 0 STEP -2: SOUND 0, IXZ SOU 

ND 1 p i : SOUND 7,254: SOUND 8,16: SOUND 12,50: SOUND 13 

pl: NEXT ZXZ END: REM FIM SIMULACAO COM POUSO OTIMO 

1210 IF TIE=1 AND TFLAG=0 THEN PRINT "O TREM DE POUSO 

ESTA' LEVANTADO. 11 : GOSUB 2930: GOTO 1 1 B0 

1220 T=VAIRE: MOT=0 

1230 X*=INKEY* 


1240 IF X*="R" THEN RPT=l: GOTO 1160 


Simulações na MSX 
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1250 IF RPT«1 AND E* CRELOJ+1 ) =" H THEN RPT=0: GOTO 1230 
1260 IF RPT»1 THEN X*=E* (RELOJ+l ) 

1270 IF X*="" THEN GOTO 1230 

1280 IF REL0JC999 THEN E% <RELOJ+l ) =XS 

1290 IF TA=1 THEN ELEVA» I NT ( ELEVA+RND (-TIME) *2-RND < -T I 
ME) *3) 

1300 IF VAIRE<3 THEN 1380 

1310 IF X*«"Q“ THEN ELEVA = ELEVA+5: EFLAG-5: IF ELEVA 
>60 THEN MOT=l 

1320 IF «■“A" THEN ELEVA-ELEVA-5! EFLA6*-5: IF ELEVA< 

-70 THEN MOT* -1 

1330 IF MOTO0 THEN GOSUB 2780 

1340 IF ALTKl THEN 1380: REM PARA EVITAR VOLTAS NA TE 
RRA 

1350 IF X*="Z" THEN AA*AA-.5: ANG=ANG-6: IF AA<-3 THEN 

AA= -3 

1360 IF X**'*h M THEN AA=AA+.5: AN6=ANG+6: IF AA>3 THEN 
AA=3 

1370 ANG = INT < ANG+RND (—TIME) *2-RND (-TIME) *2) 

1380 IF XS="L M THEN VAIRE-VAIRE+8. 5 
1390 IF X*-"." THEN VAIRE=VAIRE-7 
1400 VA IRE = VA IRE - ELEVA/5 

1410 IF TFLAG=1 THEN VAIRE = VAIRE - 1.5: FUEL * FUEL - - 5 



LLuugan do simukulor de vô o 
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1420 1F VAIRE<0 THEN VA IRE = 0 
1430 IF VA IRE >400 THEN VA IRE = 400 

1440 IF X$="l“ AND TFLAG=0 THEN TFLA6=lS GOTO 1460 
1450 IF X*="l" AND TFLAG=1 THEN TFLAG=0 
1460 FUEL = FUEL - < ABS (T-VAIRE) / 10) - 3.75 
1470 IF FUEL< 1 THEN GQSÜB 2930 
14B0 IF TA=1 THEN 1510 

1490 IF ELEVA >10 AND VA IRE >45 AND VAIRE<60 AND TFLAG-1 
THEN TA=1 

1500 IF TA=0 THEN ALTI=0: GDTO 1540 

1510 IF TIE=0 AND VAIRE<30 THEN ELEVA *= ELEVA - 5: ALT 
I = 9#ALTI 710 

1520 ALTI = ALTI I NT < < ( ELAVE+ . 1 ) * VA I RE ) ♦EFLAG*VA I RE / 1 
000) /B0 

1530 IF ALT! <300 AND TA=1 THEN ALTI =* ALTI + VAIRE/30 
+ ELEVA 

1540 IF ALTK0 THEN GOSUB 2930: REM CRASH! ! ! 

1550 ' MODIFIQUE A5 DUAS LINHAS ABAIXO PARA MOD 

I F I C AR O NIVEL DE DIFI- CULDADE NO POUSO 

1560 IF ALTI >15 AND VAIRE>20 OR TA=0 THEN GOTO 1170 
1570 IF ABS < ANG-LD) < 13 OR ABS < ANG+360-LD) <13 THEN TIE 
= 1 


1580 GOTO 1170 
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1590 * *#**************-*** 

1600 ’ * IMPRESSÃO * 

1610 F ******************* 

1620 LOCATE 4,0: PRINT STRKNGt <30, 45) : LOCATE 4,10: PR 
1NT STRING*<30,45) : LOCATE 4,19: PRINT STRING4 (30, 45) : 
LOCATE 4,22: PRINT STRING4 (30, 45) 

1630 FOR T=0 TO 22: LOCATE 3,T: PRINT CHR$(124>: LOCAT 
E 34, T: PRINT CHRS(124>: NEXT T: FOR T=1 TO 9: LOCATE 
22, T: PRINT CHRS<124): NEXT T 

1640 LOCATE 9,1: PRINT “ HOR I Z ON TE": LOCATE 25,1: PRINT 
"BÚSSOLA" 

1650 EV - INT (ELEV/A/10) 

1660 IF EV>2 THEN EV=2 
1670 IF EV<-2 THEN EV= -2 

1680 IF EV< >0 AND TA=1 AND CRASH=1 THEN GÜSUB 3080 
1690 LOCATE 4,3 
1700 FOR J=l TO 7 

1710 LOCATE 6, J+2: PRINT A$(J>: LOCATE 25,J+2: PRINT C 
*(J> 

1720 A*(J> = MM 
1730 NEXT J 

1740 DIST * DIST + ABS C (COS (ELEVA) > *VAIRE) /360 
1750 RELOJ - RELOJ+1 
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1760 LOCATE 5,11: PRINT "Km. " 5 INT ( Dl ST*10> / 10: LOCATE 
14,11: PRINT CHR*(5B) ; “TEMPO*; INT < RELOJ ) / 10; CHR* ( 58) ; L D 
1770 LOCATE 5,13 
17B0 PRINT "VEL. AR: " ; INT (VA IRE ) 

1790 LOCATE 5,14:PRINT LEFT* (Q* , I NT ( VAI RE/20) ); CHR* < 20 
7) ;STRING* (25- INT < (VAIRE/20) ) ,32> 

1B00 LOCATE 5,15: PRINT "ALTÍMETRO: " 5 INT ( ALTI ) 5 
1810 IF ANG<0 THEN PRINT TAB (22 >; 360+ANG; "Graus " 

1 820 IF ANG>=0 THEN PRINT TAB ( 22> ; ANG; "Graus" 

1830 F1R = INT (ALTI /30) í IF MR>20 THEN MR=20 

1840 LOCATE 5,16: PRINT LEFT* (Q*, MR) ; CHR* (207) ; STRING* 

( 25— MR, 32) 

1850 LOCATE 5,17! PRINT "GASOL INA: " * I NT (FUEL) 

1860 LOCATE 5,18: PRINT LEFTS (Q*, I NT (FOEL/40) ) 5 CHR* ( 20 
7) 5 STRINGS (25— INT (FUEL/ 40) , 32) 

1870 PRINT 

1 880 LOCATE 5,20: PRINT " ELE V AC AO ELEVA; CHR* (58) ; : 

GOSOB 3380: PRINT U* 

1B90 IF TFLAG=1 THEN LOCATE 5,21: PRINT " >RODAS P/FORA 

<" 

1900 IF TFLAG=0 THEN LOCATE 5,21: PRINT “ >RODAS DENTRO 

<“ 


1910 RETURN 
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Simulações no MSX 


1920 ’ ******************* 

1930 » * HORIZ.E BUSSDLA * 

1940 * ******************* 

1950 UW=ABSUNT<AA+.5) ) 

1960 1F WW=3 THEN 60SUB 2110 
1970 1F WW=2 THEN GDSUB 2200 
1980 IF WW=1 THEN BDSUB 2290 
1990 1F WW=0 THEN BDSUB 2300 

2000 ’ AS LINHAS ABAIXO ENDIREITAM AS ASAS 

LENTAMENTE 

2010 IF AA>0 THEN AA * AA- .2 

2020 IF AA< 0 THEN AA = AA+ .2 

2030 IF AA>. 2 THEN 2480 
2040 FOR Z = 1 TO 7 
2050 M*<8-Z> = A*<Z> 

2060 NEXT Z 

2070 FOR Z*=l TO 7 

2080 A*<Z> = M*(Z) 

2090 NEXT Z 

2100 GOTO 24B0 

2110 ' AA VALE 3 OU -3 

2120 A*<1) = " ** " 

2130 A*<2) = " ** " 
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2140 AS(3> = M ** 

2150 AS (4) = " ** 

2160 AS (5) = " ** 

2170 AS (6) = " ** 

2180 AS <7) = •*** 

2190 RETURN 

2200 ’ AA V/ALE 2 OU -2 
2210 AS (D- ■ 

2220 AS ( 2) =» " **" 

2230 AS (3) ■= M *** “ 

2240 AS C 4 ) = " *** 

2250 AS(5)=» ” *** 

2260 ASC6>= "*** 

2270 AS (7)- M 

22B0 RETURN 

2290 p AA VALE 1 OU -1 

2300 A*<1>- - 

2310 AS<1>» " 

2320 AS <3)-= " *#***• 

2330 AS (4) =■ " **** 

2340 AS (5) = "*■»*** 

2350 AS (6) = " 


2360 AS (7) 
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2370 RETURN 

2380 ’ AA VALE ZERO 

2390 A*(l>» " 

2400 A*C2>= *' 

2410 AS(3)= " 

2420 ASC4)« "#******##*****•• 

2430 A*<5)= ■ 

2440 A*<6)= " 

2450 A*<7>= " 

2460 RETURN 

2470 9 ******** f ***#*#**## 

2480 F «-ACERTU DE BÚSSOLA» 

2490 r ****#***♦♦**##**### 

2500 F2 = ANG-F1 

2510 IF F2< 0 THEN FA = INT < < F2+375) /30> 

2520 IF F2>=0 THEN FA - INT < <F2+15) /30) 

2530 IF FA=1 2 THEN FA-^0 
2540 C*<1> = " .N. " 

2550 IF FA=1 1 THEN C*<2> = M .9:.. "2 GOTO 2590 
2560 lF FA=0 THEN C*(2) - “ GOTO 2590 

2570 IF FA=1 THEN CS (2) = " M : GOTO 2590 

2580 Ct<2> = •• . . : . . - 

2590 IF FA=10 THEN C*(3) = -.6 : GOTO 2620 
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2600 

IF FA=2 

THEN O (3) = 

•i ■ y ii ■ 

GOTO 

2620 

2610 

0< 3) = 

II • II 

• • • mm 




2620 

IF FA=9 

THEN 0(4) = 

•o@-x — E": 

GOTO 

2650 

2630 

IF FA-3 

THEN O (4 ) = 

•*o — x-@E": 

GOTO 

2650 

2640 

0(4) = 

“0 — X — E" 




2650 

IF FA=B 

THEN 0(5) = 

" - @ : . . " : 

GOTO 

2680 

2660 

IF FA=4 

THEN C% (5 > « 

d • d ■ 

GOTO 

2680 

2670 

0(5) = 

•i ■ «• 




2680 

IF FA=7 

THEN 0(6) = 

II C, - II • 

■ c; • • ■ ■ 

GOTO 

2720 

2690 

IF FA=6 

THEN 0(6) = 

II CU Ma 

■ • Ba ■ a 

GOTO 

2720 

2700 

IF FA-5 

THEN 0(6) - 

H "2 

GOTO 

2720 

2710 

0(6) = 

•i ■ I* 




2720 

0<7> = 

•• . s. - 




2730 

IF AN6>360 TMEN ANG=ANG-360 



2740 

F2 = AN0 




2750 

IF W>0 THEN W - W-.4 




2760 

IF W<0 THEN W = W+.4 




2770 

RETURN 





2780 

REM 





2790 

IF MOT= 

-1 THEN 2860 




2800 

FOR J=1 

TO 10 




2810 

LOCATE J 

,25: PRINT "P 

AROU... 

II 

■ 


2820 

FÜR 1=1 

TD 100: NEXT 1 

[2 PRINT 
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Simulações no MSX 


2930 NEXT J 

2840 VAI RE = VAIRE/4 

2850 RETURN 

2860 FOR J = 1 TO 10 

2870 PRINT TAB(J) ; "CAINDO! ! ! 11 

2880 PRINT TABC21-J) I "PARE! ! !" 

2890 NEXT J 

2900 ALTI = 4*ALTI/5 

2910 CLS: RETURN 

2920 * *****#**##########* 

2930 • * CRASH! * 

2940 1 *#♦#*#*#♦#*######## 

2950 CRASH=l: ALT 1=0 
2960 BEEP: BEEP 

2970 Mí="* *C R** A ** S* H* ! !*": REM 2b LETRAS DE C 
OMPRI MENTO 

2980 LOCATE 1,25: FOR J=1 TO 20 

2990 PRINT TABCJ+5) ; “CRASH! M 

3000 PRINT T AB ( 2 1 - J ) \ " CRASH ! - 

3010 NEXT J 

3020 FOR J=1 TO 7 

3030 G = INT(RND<1>*11>*1 

3040 A*(J) = MID$<M*,G, 14) 
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3050 NEXT J 

3060 CLS: RETURN 

3070 9 ********ihhhhhhhí**« 

3080 ’ *AJUSTA HORIZONTES 
3090 ' »»»»»»»»»»»»»*♦♦««» 

3100 GS = STR I NGS 114, 32 ) 

3110 ÜN EV+3 GOSUB 3130,3190,3240,3250,3310 

3120 RETURN 

3130 ' EV VALE -2 

3140 FOR J=1 TO 4 

3150 A*<J) = A$CJ«-3> 

3160 NEXT J 

3170 A*(5)=GS: A*<6>=G$: A$(7)=G$ 

31B0 RETURN 
3190 ' EV VALE -I 
3200 FOR J=i TO 6 
3210 A*CJ)=A* <J+1) 

3220 NEXT J 
3230 A$(J)»G* 

3240 RETURN 

3250 F EV VALE 1 

3260 FOR J=6 TO 1 STEP -1 


3270 AS ( J + 1 ) = AS(J) 
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328 0 NEXT J 
3290 A*(1)=G* 

3300 RETURN 
3310 » EV VALE 2 
3320 FOR J-4 TO i STEP -1 
3330 AS(J+3) = A*<J) 

3340 NEXT J 

3350 A*(1)=GS: A*<2>=*G4: A*(3)=G* 

3360 RETURN 

3370 ' ******************* 

3380 * «ORDENS DIGITADAS» 

3390 * ******************* 

3400 U* = STRING*U2,219) 

3410 IF XS - “L" THEN U*= •'ACELERAR" 

3420 IF X* - THEN US= "FREAR" 

3430 IF X* = "Q" AND ALTI>0 THEN US« "SUBIR” 

3440 IF X* = "Q" AND ALT 1=0 THEN U*= "DECOLAR” 

3450 IF X* = ”A M THEN U*= “POUSAR” 

3460 IF X* = "Z" THEN US= "ESQUERDA '* 

3470 IF X* = "M" THEN U$= "DIREITA" 

3480 G$=STR I NG4» (10, 32 ) 

3490 IF LENÍUSX12 THEN U*=US+RIGHT$ <G*, 1 2-LEN (U*> ) 


3500 RETURN 
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3510 ' ******************* 

3520 * * INICI ALI ZACAO * 

3530 5 ******************* 

3540 KEYOFF: SCREEN0: COLOR 15, 0,0 

3550 POKE -853,255 

3560 Q* = STRING$ (20, 219) 

3570 TFLAG=l: REM TREM DE POUSO: 

0 = DENTRO 

3500 EFLAG-0: REM ANGULO SUBIDA 
3590 ANG=05 TA=0: TIE=0 
3600 VAIRE=0: REM VELOCIDADE DO AR 
3610 DIST=0: REM DISTANCIA PERCORRIDA 
3620 ALT 1=0: REM ALTITUDE 
3630 ELEVA=0: REM ANGULO DE ELEVACAO 
3640 AA=0: REM ANGULO DAS ASAS5 USADO 
MIR O HORIZONTE 

3650 FUEL=750: CRASH=0: F2=0: F 1=0: REM 
DESENHO DA BÚSSOLA 
3660 RELQJ=0: REM MARCA TEMPO 
3670 X*= ,,,, 

3680 GOSUB 2390 


1 = FORA, 


PARA IMPRI 


USADOS NO 


3690 RETURN 
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